如何响应动态生成组件的事件?急!!!

寒星 2001-11-01 12:52:15
我在ACTIVEX DLL中动态生成了一个TNMFTP组件,请问如何响应它的事件(如:ONFAILURE,ONSUCCESS)?万分感谢!!!
...全文
148 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
thedream 2001-11-01
  • 打赏
  • 举报
回复
你的组件.onsuccess:=你的响应事件过程或函数
Crob 2001-11-01
  • 打赏
  • 举报
回复
我的做法,方法如下:

var arrBtn : array of TButton;

procedure setArrBtn();
var i:integer;
begin
SetLength(arrBtn, 10);

for i:=0 to 9 do begin
arrBtn[i] := TButton.Create(self);
arrBtn[i].Caption := 'button' + IntToStr(i);
arrBtn[i].width := 100;
//.....设置其它属性

arrBtn[i].tag := i; //标识控件标志,以便在以后的事件处理函数中识别该控件。
arrBtn[i].OnClick := OnMyButton;
end;
end;

//自定义的事件响应过程OnMyButton
procedure OnMyButton(Sender: TObject);
begin
//根据上面设置的tag值来判断按下的是哪个动态生成的控件

case TButton(Sender).tag of
1 : begin
//数组按钮1触发的事件
end;
2 : begin
//数组按钮2触发的事件
end;
3 ://.......................

else..................
end;

end;
wisenowa 2001-11-01
  • 打赏
  • 举报
回复
你要注意参数呀
寒星 2001-11-01
  • 打赏
  • 举报
回复
给分了。
寒星 2001-11-01
  • 打赏
  • 举报
回复
我试试看,OK了马上给分。

5,928

社区成员

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

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