如何编写控件点击事件的代码?

hqz010 2003-09-22 06:07:53
我在程序中创建如下对象!
while 条件 do
begin
myImage:=TImage.create(self);
myImage.parent:=panel1;
.......
end;

请问那这件生成的控对象,如何在其onclick事件中写代码呢?
...全文
92 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
sun623 2003-09-22
  • 打赏
  • 举报
回复
up
xiaofei7569 2003-09-22
  • 打赏
  • 举报
回复
procedure IamgeClick(Sender: TObject);
begin
//do something
end;

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

myImage.OnClick := IamgeClick;
.......
end;
delphicrazyboy 2003-09-22
  • 打赏
  • 举报
回复
ding
!
yoisyois 2003-09-22
  • 打赏
  • 举报
回复
procedure TForm1.IamgeClick(Sender: TObject);
begin
//do something
end;

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

myImage.OnClick := self.IamgeClick;
.......
end;
dulei115 2003-09-22
  • 打赏
  • 举报
回复
procedure TForm1.ImageClick(Sender: TObject);
begin
showmessage('');
end;

while 条件 do
begin
myImage:=TImage.create(self);
myImage.parent:=panel1;
myImage.onclick := ImageClick;
end;
dulei115 2003-09-22
  • 打赏
  • 举报
回复
procedure TForm1.ButtonClick(Sender: TObject);
begin
ShowMessage('AA');
end;

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

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧