?? 動態菜單事件調用.txt
字號:
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls, Menus;
type
TMenuClick = procedure(Sender: TObject) of object;
TForm1 = class(TForm)
ADOTable1: TADOTable;
MainMenu1: TMainMenu;
N4444: TMenuItem;
Button1: TButton;
N1: TMenuItem;
N2: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
FSL: TStringlist;
{ Private declarations }
procedure Menuclick1(Sender: TObject);
procedure Menuclick2(Sender: TObject);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
MenuClick: TMenuClick;
begin
//準備列表 ,現多自己加
MenuClick := Menuclick1;
FSL := TStringlist.Create;
FSL.AddObject('Menuclick1', TObject(@MenuClick));
MenuClick := Menuclick2;
FSL.AddObject('Menuclick2', TObject(@MenuClick));
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
FSL.Free;
end;
procedure TForm1.Menuclick1(Sender: TObject);
begin
ShowMessage('Menuclick1');
end;
procedure TForm1.Menuclick2(Sender: TObject);
begin
ShowMessage('Menuclick2');
end;
procedure TForm1.Button1Click(Sender: TObject);
var
MenuClick: TMenuClick;
begin
//調用方法
@MenuClick := FSL.Objects[FSL.IndexOf('Menuclick1')];
N1.OnClick := MenuClick;
@MenuClick := FSL.Objects[FSL.IndexOf('Menuclick2')];
N2.OnClick := MenuClick;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -