社区
Delphi
帖子详情
关于Delphi的初级问题2....
town
2000-04-25 12:32:00
1.动态定义的一个TButton对象,如何使用它的事件?
2.自定义对象,如何定义及使用它的事件?
...全文
69
2
打赏
收藏
关于Delphi的初级问题2....
1.动态定义的一个TButton对象,如何使用它的事件? 2.自定义对象,如何定义及使用它的事件?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
2 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
eaglet
2000-04-25
打赏
举报
回复
例如:OnClick 事件可以如下定义,和使用。
type
TMyButton = Class(Button)
public :
constructor create ;
procedure OnMyClick (Sender: TObject);
end ;
constructor TMyButton.Create ;
begin
inherited Create(Owner);
onClick = OnMyClick ;
end ;
procedure TMyButton.OnMyclick (Sender : TObject);
begin
....
end;
光明山人
2000-04-25
打赏
举报
回复
1、
->eaglet: 有点。不过好象应该是在Form中:
TMyForm = class(TForm)
procedure FormCreate( Sender: TObject ); // OnCreate事件
private
FaButton: TButton;
procedure DoButtonClick( Sender: TObject );
end;
implementation
{ TMyForm }
procedure TMyForm.DoButtonClick(Sender: TObject);
begin
// 按钮Click事件处理
end;
procedure TMyForm.FormCreate(Sender: TObject);
begin
FaButton := TButton.Create( Self );
with FaButton do
begin
Parent := Self;
OnClick := DoButtonClick;
end;
end;
2. 请学习Delphi教程中关于怎样写构件的部分。看了以后管保你受用无穷。
在窗口内显示图片,
delphi
初级
代码..rar
在窗口内显示图片,
delphi
初级
代码..rar
启动简单的计算线程
Delphi
的
初级
源代码.rar
一个
Delphi
初级
实例,启动一个简单的计算线程,学习多线程的朋友可参考一下。实例中,点击按钮后即可启动一个线程,并跟踪结果,显示在文本框中。
Delphi
XE10零基础实战快速入门
通过课堂上一个一个的实战例子,演示
Delphi
XE10的用法,最后通过一个完整的通讯录程序,让学员初步掌握软件开发的全部流程 让零基础学员快速入门
Delphi
编程,快速掌握
Delphi
的使用方法,并能够制作出自己的软件来。...
Delphi
外挂编程
初级
篇1-1
Delphi
外挂编程
初级
篇1-1 郁金香老师的教程,很不错
Delphi
动态创建和载入CheckBox控件.rar
Delphi
动态创建和载入CheckBox控件, 还可保存CheckBox ,比较简单的
Delphi
初级
例子,希望对
Delphi
新手朋友们有所帮助。
Delphi
5,379
社区成员
262,722
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章