楼主: |
unit Unit1;
{$mode objfpc}{$H+}
interface
uses Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Menus, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm) MainMenu1: TMainMenu; MenuItem1: TMenuItem; procedure OnClick1(Sender: TObject); procedure FormCreate(Sender: TObject); private
public
end;
var Form1: TForm1;
implementation
{$R *.frm}
{ TForm1 } procedure TForm1.OnClick1(Sender: TObject); begin showMessage('信息'); end;
procedure TForm1.FormCreate(Sender: TObject); var MenuItem2: TMenuItem; begin MenuItem2:=TMenuItem.Create(MainMenu1); MenuItem2.OnClick:= OnClick1; MenuItem2.Caption:='二级菜单'; MainMenu1.Items[0].Add(MenuItem2);
end;
end.
此帖子包含附件:
大小:7.6K |
----------------------------------------------
- |