动态创建时可加上这句
onclick=myclick;myclick的事件为:procedure TForm1.myclick(Sender: TObject);
begin
if sender is Tedit then
showmessage((sender as Tedit).name);
if sender is Tbutton then
showmessage((sender as Tbutton).name);
........................
end;
onclick=myclick;myclick的事件为:procedure TForm1.myclick(Sender: TObject);
begin
if sender is Tedit then
showmessage((sender as Tedit).name);
if sender is Tbutton then
showmessage((sender as Tbutton).name);
........................
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货