?? unit2.pas
字號:
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ComCtrls;
type
Tf_main = class(TForm)
MainMenu2: TMainMenu;
MenuItem1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N5: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
N6: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
StatusBar1: TStatusBar;
procedure N15Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure N10Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure N11Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
f_main: Tf_main;
implementation
uses Unit1, Unit3, Unit4, Unit7;
{$R *.dfm}
procedure Tf_main.N15Click(Sender: TObject);
begin
f_sjbf:=tf_sjbf.create(self);
f_sjbf.show;
end;
procedure Tf_main.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if MessageDlg('真的退出程序嗎?', mtConfirmation,
[mbYes, mbNo], 0) = mrYes then
begin
Action := caFree;
application.Terminate;
end
else
Action := caNone;
end;
procedure Tf_main.N10Click(Sender: TObject);
begin
form3:=tform3.create(self);
form3.Show;
end;
procedure Tf_main.N7Click(Sender: TObject);
begin
form4:=tform4.create(self);
form4.show;
end;
procedure Tf_main.N16Click(Sender: TObject);
begin
f_sjbf:=tf_sjbf.create(self);
f_sjbf.show;
end;
procedure Tf_main.N11Click(Sender: TObject);
begin
form7:=tform7.create(self);
form7.show;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -