如何动态创建按钮?以及如何让其响应click事件!
解决方案 »
- 请问以下SQL语句如何在QUERY1里执行
- 如何把剪贴板里的BMP图片转换成JPG图片并压缩
- 在Delphi7 中如何把数据传到 水晶报表中?
- 一年过去了.祝大家新春快乐.
- 有关DELPHI版本的问题,急!
- 我在DELPHI中居然没有发现编译成exe的菜单,还有谁能帮我推荐些介绍建立组件的材料(初级即可)
- 用ClientDateSet和ADODataset,为什么只能修改不能添加
- 请问MS的Speech SDK5.1的TTS,合成语音后如何存为文件?
- 谁知道调用什么函数出现浏览网上邻居的对话框?
- KGrid.DBRead(1)是什么意思?
- 请高手指教我的程序错哪里(关于防止程序二次运行得)
- @@@@@@@@@@@@@@去看看印尼人怎么对付华人同胞的,太恐怖了@@@@@@@@@@@@@@@@@@@@@@@@@@@
sbutton.onclick:= ....
这种问题很多拉
搜索一下先吧
begin
showmessage('This Button caption is ' + TButton(Sender).Caption);
end;procedure TForm1.Button1Click(Sender: TObject);
var
AButton: TButton;
i: Integer;
begin
for i := 1 to 5 do
begin
AButton := TButton.Create(self);
AButton.Parent := self;
AButton.Top := i*100;
AButton.Caption := IntToStr(i*100);
AButton.OnClick := ButtonClick;
end;end;
var
b:TButton;
begin
B:=TButton.Create(self);
B.Parent:=self;
B.left:=100;
B.Top:=100;
B.Caption:='Button2';
// B.OnClick:=……
end;
谢谢你,你的代码有一处不明
abutton.parent=self;
这个self指谁?form 还是什么?????
BUTTON.Parent:=Panel1;
self指當前Form1
例如:
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure aaa(sender:tobject);//过程
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
btn:tbutton;implementation{$R *.DFM}
procedure tform1.aaa(sender:tobject);
begin
showmessage('aaaaaaaaaa');
end;procedure TForm1.FormCreate(Sender: TObject);
begin
btn:=tbutton.Create(self);
btn.Parent:=form1;
btn.Visible:=true;
btn.onClick:=aaa;//赋过程名
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
btn.Free;
end;
end.