社区
Delphi
帖子详情
关于Delphi的初级问题2....
town
2000-04-25 12:32:00
1.动态定义的一个TButton对象,如何使用它的事件?
2.自定义对象,如何定义及使用它的事件?
...全文
76
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
外挂编程
初级
篇1-1
Delphi
外挂编程
初级
篇1-1 郁金香老师的教程,很不错
Delphi
动态创建和载入CheckBox控件.rar
Delphi
动态创建和载入CheckBox控件, 还可保存CheckBox ,比较简单的
Delphi
初级
例子,希望对
Delphi
新手朋友们有所帮助。
Delphi
4
初级
教程
Delphi
4
初级
教程
Delphi
5,388
社区成员
262,730
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章