我在scrollbox中动态的生成一个按钮,现在想编写该按钮的单击事件,不知如何实现?
解决方案 »
- DELPHI窗口关闭
- 如何使DBGRID中某列具有类似DateTimePicker的功能?
- 超级求救!IDTCP问题!
- 大家快点帮我呵呵!!!急死了呵!!!(能帮我的马上结帐给分呵!)
- 有没有办法把数据表封成一个内存中的数据结构?
- 有关客户/服务器编程小问题
- 一个查询的问题
- 给60分! 我如何才能在timage上再画上一个位图呢?我用imageA.canvas,draw(1,1,imageB)不行啊,程序提示说只有timage里装个位图才可以画,
- delphi查询等待formshow问题.
- 如何能在两个窗体中同时更新一个数据库
- 请提供一个水泥生产行业的ERP下载呀?!
- 请问Form程序如何像IE一样访问WEB网站内容?如取回数据库的查询值?求救!!
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
ScrollBox1: TScrollBox;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject); private
Button2:TButton; procedure Button2Click(Sender: TObject);
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if Button2<>nil then exit; Button2:=TButton.Create(Self);
Button2.Left:=2;
Button2.Top:=2;
Button2.Caption:='Hello';
Button2.OnClick:=Button2Click;
Button2.Parent:=ScrollBox1;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage('Button2');
end;procedure TForm1.FormCreate(Sender: TObject);
begin
Button2:=nil;
end;end.
释放资源procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FreeAndNil(Button2);
end;