?? tsglxt.~pas
字號(hào):
unit tsglxt;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ExtCtrls, jpeg;
type
TFormMain = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
ntscx: TMenuItem;
ndzcx: TMenuItem;
njccx: TMenuItem;
N5: TMenuItem;
ncjts: TMenuItem;
nghts: TMenuItem;
N8: TMenuItem;
ntsdj: TMenuItem;
ndzdj: TMenuItem;
ntszx: TMenuItem;
ndzzx: TMenuItem;
Panel1: TPanel;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
procedure ntscxClick(Sender: TObject);
procedure ndzcxClick(Sender: TObject);
procedure njccxClick(Sender: TObject);
procedure nghtsClick(Sender: TObject);
procedure ncjtsClick(Sender: TObject);
procedure ndzzxClick(Sender: TObject);
procedure ntszxClick(Sender: TObject);
procedure ndzdjClick(Sender: TObject);
procedure ntsdjClick(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormMain: TFormMain;
implementation
uses unit1,unit2,unit3,unit4,unit6,unit7,unit5,unit8,unit9,unit10;
{$R *.dfm}
procedure TFormMain.ntscxClick(Sender: TObject);
begin
application.CreateForm(ttscx,tscx);
tscx.Show
end;
procedure TFormMain.ndzcxClick(Sender: TObject);
begin
application.CreateForm(tdzcx,dzcx);
dzcx.Show
end;
procedure TFormMain.njccxClick(Sender: TObject);
begin
application.CreateForm(tcjts,cjts);
cjts.Show
end;
procedure TFormMain.nghtsClick(Sender: TObject);
begin
application.CreateForm(tghts,ghts);
ghts.Show
end;
procedure TFormMain.ncjtsClick(Sender: TObject);
begin
application.CreateForm(ttscj,tscj);
tscj.Show
end;
procedure TFormMain.ndzzxClick(Sender: TObject);
begin
application.CreateForm(tdzzx,dzzx);
dzzx.show
end;
procedure TFormMain.ntszxClick(Sender: TObject);
begin
application.CreateForm(tzxts,zxts);
zxts.show
end;
procedure TFormMain.ndzdjClick(Sender: TObject);
begin
application.CreateForm(tdzdj,dzdj);
dzdj.show
end;
procedure TFormMain.ntsdjClick(Sender: TObject);
begin
application.CreateForm(ttsdj,tsdj);
tsdj.Show
end;
procedure TFormMain.N4Click(Sender: TObject);
begin
close
end;
procedure TFormMain.N2Click(Sender: TObject);
begin
application.CreateForm(tform10,form10);
form10.Show
end;
end.
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -