?? unit1.pas
字號:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
mmFile: TMenuItem;
miOpen: TMenuItem;
miClose: TMenuItem;
N1: TMenuItem;
miExit: TMenuItem;
Memo1: TMemo;
procedure miOpenClick(Sender: TObject);
procedure miCloseClick(Sender: TObject);
procedure miExitClick(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
procedure MenuItemEnable(iLevel: Integer);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3;
{$R *.dfm}
procedure TForm1.MenuItemEnable(iLevel: Integer);
begin
miOpen.Enabled := False;
miClose.Enabled := False;
miExit.Enabled := False;
case iLevel of
1:
begin
miOpen.Enabled := True;
miClose.Enabled := True;
miExit.Enabled := True;
end ;
2: miClose.Enabled := True;
3: miExit.Enabled := True;
end;
end;
procedure TForm1.miOpenClick(Sender: TObject);
begin
ShowMessage('打開');
end;
procedure TForm1.miCloseClick(Sender: TObject);
begin
ShowMessage('關閉');
end;
procedure TForm1.miExitClick(Sender: TObject);
begin
ShowMessage('退出');
end;
procedure TForm1.FormShow(Sender: TObject);
begin
Form2 := TForm2.Create(Self);
if Form2.ShowModal <> mrYes then
begin
Application.MessageBox('','',MB_OK);
Application.Terminate;
end;
//控制顯示,(可用性控制)
MenuItemEnable(DM.CurUser.IntUserLevel);
Form2.Free;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -