社区
Delphi
帖子详情
如何编写控件点击事件的代码?
hqz010
2003-09-22 06:07:53
我在程序中创建如下对象!
while 条件 do
begin
myImage:=TImage.create(self);
myImage.parent:=panel1;
.......
end;
请问那这件生成的控对象,如何在其onclick事件中写代码呢?
...全文
93
6
打赏
收藏
如何编写控件点击事件的代码?
我在程序中创建如下对象! while 条件 do begin myImage:=TImage.create(self); myImage.parent:=panel1; ....... end; 请问那这件生成的控对象,如何在其onclick事件中写代码呢?
复制链接
扫一扫
分享
转发到动态
举报
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;
一个时间
控件
,关于active
控件
的
编写
。
这是一个自制的active
控件
,其中向
控件
添加菜单困扰了我很久,不知道谁能把它改成弹出式菜单。
有疑问请和我联系。
winform实现360、QQ窗体与
控件
利用winform的gdi+
控件
实现的QQ窗体与
控件
TreeView
控件
ajax操作实例
使用jQuery以及它的ajax方法直接操作asp.net 2.0 中的TreeView
控件
,具体说明请看http://blog.csdn.net/luq885
使用Internet
控件
的简单Web浏览器
使用Micrsoft Internet
控件
的简单Web浏览器,简单FTP程序
Android开发入门60个小案例+源
代码
适合初学者,大量简单小例子,完整源
代码
。
Delphi
5,928
社区成员
262,931
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章