templateeditdlg.pas

大家是不是为不知道如何在VB学到绝地程序

{***************************************************************
 *
 * Unit Name   : Code Template Edit Dialog
 * Version     : 1.0.0.0
 * Date        : 2000-07-22
 * Purpose     :
 * Author      : riceball ([e-mail])
 * Copyright(C): 2000 by riceball
 * History     :
 *        2000-07-22
 *             + First Release
 *
 ****************************************************************}

Unit TemplateEditDlg;

Interface

Uses
  Windows,
  SysUtils,
  Classes,
  Graphics,
  Forms,
  Controls,
  StdCtrls,
  Buttons,
  ExtCtrls,
  vgNLS;

Type
  TdlgTemplateEdit = Class(TForm)
    BtnOK: TButton;
    BtnCancel: TButton;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    edtShortcut: TEdit;
    edtDesc: TEdit;
    Procedure FormShow(Sender: TObject);
    Procedure FormCreate(Sender: TObject);
  Private
    { Private declarations }
    tran: TvgTranslator;
  Public
    { Public declarations }
  End;

Var
  dlgTemplateEdit: TdlgTemplateEdit;

Implementation

{$R *.DFM}

Uses
  MainEdit;

Procedure TdlgTemplateEdit.FormShow(Sender: TObject);
Begin
  tran.LanguageFile := CurrentLan;
  tran.Translate;
End;

Procedure TdlgTemplateEdit.FormCreate(Sender: TObject);
Begin
  tran := TvgTranslator.Create(Self);
End;

End.