关于Delphi的初级问题2....

town 2000-04-25 12:32:00
1.动态定义的一个TButton对象,如何使用它的事件?
2.自定义对象,如何定义及使用它的事件?
...全文
69 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教程中关于怎样写构件的部分。看了以后管保你受用无穷。

5,379

社区成员

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

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