如何编写控件点击事件的代码？-CSDN论坛

CSDN论坛 > Delphi > VCL组件开发及应用

如何编写控件点击事件的代码？ [问题点数：20分，结帖人hqz010]

一键查看最优答案

确认一键查看最优答案？

本功能为VIP专享，开通VIP获取答案速率将提升10倍哦！

取消

开通vip会员

⋅MemberInfo[] info1=mtype.GetMembers(BindingFlags.Instance|BindingFlags.Public);如何对对象数组进行排序 ⋅有谁装的是ms sql server 2005的数据库啊？ ⋅如何才能实现多文件上传啊? 更多帖子 关注私信空间博客 hqz010 本版专家分：63 结帖率 96.7%: 我在程序中创建如下对象！
while 条件 do
begin
    myImage:=TImage.create(self);
    myImage.parent:=panel1;
    .......
end;

请问那这件生成的控对象，如何在其onclick事件中写代码呢？

0 2003-09-22 18:07:53

回复数 6 只看楼主引用举报楼主

⋅没有找到MFC71D.DLL，因为这个应用程序未能启动。重新安装应用程序可能会修复此问题。 ⋅sscanf函数从“[aaa]”中获取“aaa”，从"bbb=ccc"中获取"bbb"和"ccc" ⋅打开控制面板提示：该文件没有程序与之关联来执行该操作 更多帖子 关注私信空间博客 dulei115 本版专家分：12790: procedure TForm1.ButtonClick(Sender: TObject);
begin
  ShowMessage('AA');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.OnClick := ButtonClick;
end;

0 2003-09-22 18:18:19

只看TA 引用举报 #1    得分 10

⋅没有找到MFC71D.DLL，因为这个应用程序未能启动。重新安装应用程序可能会修复此问题。 ⋅sscanf函数从“[aaa]”中获取“aaa”，从"bbb=ccc"中获取"bbb"和"ccc" ⋅打开控制面板提示：该文件没有程序与之关联来执行该操作 更多帖子 关注私信空间博客 dulei115 本版专家分：12790: procedure TForm1.ImageClick(Sender: TObject);
begin
  showmessage('');
end;

while 条件 do
begin
    myImage:=TImage.create(self);
    myImage.parent:=panel1;
    myImage.onclick := ImageClick;
end;

0 2003-09-22 18:20:10

只看TA 引用举报 #2    得分 0

⋅iptables能否给外网的机器做代理?

⋅散6分，马上结帖。

⋅*************************免费短信服务*******************************

更多帖子

关注私信空间博客

yoisyois

本版专家分：8188: procedure TForm1.IamgeClick(Sender: TObject);
begin
  //do something
end;

while 条件 do
begin
    myImage:=TImage.create(self);
    myImage.parent:=panel1;

    myImage.OnClick := self.IamgeClick;
    .......
end;

0 2003-09-22 18:21:22

只看TA 引用举报 #3    得分 5

delphicrazyboy 本版专家分：110: ding
!

0 2003-09-22 19:37:17

只看TA 引用举报 #4 得分 0

⋅我公司（在深圳电子科技大厦）近来在招聘开发人员 ⋅从今天开始我的网上乞讨生涯。（儿子不幸得了白血病） ⋅从今天开始我的网上乞讨生涯。（儿子不幸得了白血病） 更多帖子 关注私信空间博客 xiaofei7569 本版专家分：477: procedure IamgeClick(Sender: TObject);
begin
  //do something
end;

while 条件 do
begin
    myImage:=TImage.create(self);
    myImage.parent:=panel1;

    myImage.OnClick := IamgeClick;
    .......
end;

0 2003-09-22 20:43:16

只看TA 引用举报 #5    得分 5

sun623 本版专家分：0: up

0 2003-09-22 21:16:36

只看TA 引用举报 #6 得分 0

收藏帖子