網絡上的例子大都是在一個form單元。我是把此功能放到一個公用的單元。
菜單可以加上了。但是菜單事件卻加不上，多謝各位指點。
unit Unit2;
interface
uses Forms,Menus;
var fmainmenu:TMainMenu ;
procedure CreateMenus(froms:TForm );
implementation
//
procedure CreateMenus(froms:TForm );
var Menuitems:TMenuItem;
begin
Menuitems:=TMenuItem.Create(froms);
fmainmenu:=TMainMenu.Create(froms);
Menuitems.Caption :='Fiels&F';
Menuitems.MenuIndex :=0;
fmainmenu.Items.Add(Menuitems);
end;
end.

------
The empty vessels make the greatest sound.

編輯記錄

ex:

private
{ Private declarations }
procedure TextClick(Sender: TObject);


procedure TForm1.TextClick(Sender: TObject);
begin
ShowMessage(TMenuItem(Sender).Caption);
end;





===================引 用 allen-86 文 章===================
網絡上的例子大都是在一個form單元。我是把此功能放到一個公用的單元。
菜單可以加上了。但是菜單事件卻加不上，多謝各位指點。
unit Unit2;
interface
uses Forms,Menus;
var fmainmenu:TMainMenu ;
procedure CreateMenus(froms:TForm );
implementation
//
procedure CreateMenus(froms:TForm );
var Menuitems:TMenuItem;
begin
Menuitems:=TMenuItem.Create(froms);
fmainmenu:=TMainMenu.Create(froms);
fmainmenu.OnClick:= TextClick;

Menuitems.Caption :='Fiels&F';
Menuitems.MenuIndex :=0;
fmainmenu.Items.Add(Menuitems);
end;
end.

報錯：[Error] Unit2.pas(27): Undeclared identifier: 'forbidden'

到網上查了一下forbidden居然沒查到是做什麽用的。呵呵。

麻煩大哥再查看一下。

===================引 用 jimmy_wei 文 章===================
ex:

private
{ Private declarations }
procedure TextClick(Sender: TObject);


procedure TForm1.TextClick(Sender: TObject);
begin
ShowMessage(TMenuItem(Sender).Caption);
end;





===================引 用 allen-86 文 章===================
網絡上的例子大都是在一個form單元。我是把此功能放到一個公用的單元。
菜單可以加上了。但是菜單事件卻加不上，多謝各位指點。
unit Unit2;
interface
uses Forms,Menus;
var fmainmenu:TMainMenu ;
procedure CreateMenus(froms:TForm );
implementation
//
procedure CreateMenus(froms:TForm );
var Menuitems:TMenuItem;
begin
Menuitems:=TMenuItem.Create(froms);
fmainmenu:=TMainMenu.Create(froms);
fmainmenu.OnClick:= TextClick;

Menuitems.Caption :='Fiels&F';
Menuitems.MenuIndex :=0;
fmainmenu.Items.Add(Menuitems);
end;
end.

------
The empty vessels make the greatest sound.

我打的是on 連著打click := textclick;呀怎麼會變成你說的那個怪怪字??

編輯記錄

sorry,這是站上反應許久仍未解決的問題 ^_^
http://delphi.ktop.com.tw/board.php?cid=32&fid=1492&tid=90474

===================引 用 jimmy_wei 文 章===================
我打的是on 連著打click := textclick;呀怎麼會變成你說的那個怪怪字??

哦。對了應該是onclick.
但是還沒有很好的解決我想要的。呵呵。】
我的想法是onclick事件就在unit2單元本身而不是回到main窗體。
不知道可有辦法？

------
The empty vessels make the greatest sound.

unit Unit2;
interface
uses Forms, Menus, Dialogs;
var fmainmenu:TMainMenu ;
type
TOBJ = class
private
{ Private declarations }
public
{ Public declarations }
procedure CreateMenus(froms:TForm );
procedure ClickText(Sender: TObject);
end;
implementation
//
{ TOBJ }
procedure TOBJ.ClickText(Sender: TObject);
begin
ShowMessage(TMenuItem(Sender).Caption);
end;
procedure TOBJ.CreateMenus(froms:TForm );
var Menuitems:TMenuItem;
begin
fmainmenu:=TMainMenu.Create(froms);
Menuitems:=TMenuItem.Create(fmainmenu);
Menuitems.Caption :='ABC';
Menuitems.MenuIndex :=0;
Menuitems.OnClick:= ClickText;
fmainmenu.Items.Add(Menuitems);
end;

end.





unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus;
type
TForm1 = class(TForm)
Button2: TButton;
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
uses Unit2;
{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
var
OBJ: TOBJ;
begin
OBJ:= TOBJ.Create;
OBJ.CreateMenus(Form1);
end;
end.


看看吧....其實你在做下去一定還會發現.要增加子節點等等的問題...不過你試試吧
其實剩下的部份你自己try try就可以了.....

感謝！回家試試。呵呵。

------
The empty vessels make the greatest sound.

OK.感謝 jimmy_wei兄.
我的理解是如果要調用事件必須在一個類裡面。
再次感謝 老兄. :)

------
The empty vessels make the greatest sound.