我如果另写一个过程:procedure tform1.btonclick(sender:integer);
begin
showmessage('bt clicked!' );
close;
end;虽然编译能通过,但不起作用的。
begin
showmessage('bt clicked!' );
close;
end;虽然编译能通过,但不起作用的。
解决方案 »
- win7 64 位 编译 delphi 问题
- 急! 在dbgrideh中, 当行(ROW,也就是记录)改变后,触发那些事件/?((就是当dbgrideh的换行后,俺要处理一些代码,请问写在那里?)
- 在delphi7中用adoconnection组件连接SQLServer2000的问题
- 急,请各位帮忙,如何实现float型转成千分位的'0,000.00',然后再由千分位转为float型'0000.00'.(在线等待)
- 如何锁定word菜单中的一项或一列?
- 如何使ISAPI扩展线程中的数据模块独立
- 显示form的时候抛出异常!
- idhttp如何发送soap消息
- 那位兄台知道,怎样在SQL Server中定义一个象Access那样自动编号的ID字段.
- DBGird中可不可以同时显示多个表中的字段?
- M1卡的序列号如何转换?
- 关于用uLKJSON解析JSON数据时,拿不到中文的数据。
Procedure TForm1.Button1Click(Sender: TObject);
Begin
bt:=tbutton.create(self);
bt.parent:=self;
bt.Name:='btnm';
bt.left:=20;
bt.top:=20;
bt.width:=40;
bt.height:=25;
bt.caption:='exit';
bt.visible:=true;
bt.visible:=true;
bt.OnClick :=btonclick; // OnClick事件
End;
begin
showmessage('bt clicked!' );
close;
end;要改成procedure tform1.btonclick(Sender:TObject);
begin
showmessage('bt clicked!' );
close;
end;