DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: a12315
今日帖子: 42
在线用户: 14
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 hihzf (hihzf) ★☆☆☆☆ -
普通会员
2018/6/20 23:24:46
标题:
lazarus或者typhon的菜单事件绑定出错,代码在delphi招行正常,哪位大侠知道原因 浏览:911
加入我的收藏
楼主:
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.
此帖子包含附件:
PNG 图像
大小:7.6K
----------------------------------------------
-
作者:
男 hujiacheng ( 旺财) ★☆☆☆☆ -
普通会员
2018/6/21 2:21:59
1楼: ?不太愿意打开.这玩意窗体太多了 切换就是个蛋.
语法检查不严谨
没有MainMenu1 都能编译 访问就..啊哈
此帖子包含附件:
PNG 图像
大小:974.8K
----------------------------------------------
免费的FTPhttps://download-installer.cdn.mozilla.net/pub/firefox/releases/43.0/win64/zh-CN/https://cc.embarcadero.com/Author/575019>http://delphi-z.ruhttps://download-installer.cdn.mozilla.net/pub/firefox/releases/43.0/win64/zh-CN/https://cc.embarcadero.com/Author/575019>http://delphi.icm.edu.pl/ftp/https://download-installer.cdn.mozilla.net/pub/firefox/releases/43.0/win64/zh-CN/https://cc.embarcadero.com/Author/575019>http://delphi-z.ruhttps://download-installer.cdn.mozilla.net/pub/firefox/releases/43.0/win64/zh-CN/https://cc.embarcadero.com/Author/575019
作者:
男 hihzf (hihzf) ★☆☆☆☆ -
普通会员
2018/6/21 12:48:57
2楼: 感谢大侠
----------------------------------------------
-
作者:
男 go_on (go_on) ★☆☆☆☆ -
盒子活跃会员
2018/6/23 21:34:28
3楼: {$mode objfpc

改为 mode delphi
----------------------------------------------
www.eudn.cn工程师联合开发网
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行152.3438毫秒 RSS