在form窗体上动态产生一个button键的代码该怎么写(50分)

L

loutian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-18

• #1

我从书上看到这个方法，可是我好象试不出来
with tbutton.create(self) do
begin
parent:=self;
name:='buttonprocess';
onclick:=button1click;
setbounds(10,10,width,height);
caption:='process';

我想主要问题出在定义类上，我该怎么定义类呢，请指教

 

L

laohe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-18

• #2

我也相知道

细详介绍或给源码的朋友我另加100

 

B

book523

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-18

• #3

下面的可以：
var
btn:TButton
begin
Btn := TButton.Create (Self);
Btn.Parent := Self;
Btn.Left := 100;
Btn.Top := 100;
Btn.Width := Btn.Width + 50;
Btn.Caption := Format ('Button at %d, %d', [X, Y]);
Btn.OnClick:=MyClick;
end;

 

H

Herry0001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-18

• #4

1.创建TBUTTON对象
var
AButton: TButton;
begin
with TButton.Create(Self) do
begin
Parent := Form1; // form1为要添加按钮的窗体
Caption := ''; // 指定按钮的标题
Name := ''; // 指定按钮的名称
left := x; // 以下为位置参数
Top := y;
end;
end
对上面的属性要设置正确

 

L

loutian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-19

• #5

Herry0001,那你的abutton是干什么用的

 

完

完颜康

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-19

• #6

定义一个tButton 的对象：）

 

L

loutian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-19

• #7

可是我看好象没有用到这个abutton吗

 

完

完颜康

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-19

• #8

AButton :=TButton.create(self);
AButton.Parent := Form1; // form1为要添加按钮的窗体
AButton.Caption := ''; // 指定按钮的标题
AButton.Name := ''; // 指定按钮的名称
AButton.left := x; // 以下为位置参数
AButton.Top := y;

一定想用的话，这样

 

L

ljsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-19

• #9

同意book523的做法

 

J

jbas

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-19

• #10

这样了可以的。
type
TForm1 = class(TForm)
private
{ Private declarations }
procedure btnclick(sender: tobject);
procedure createbtn;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.btnclick(sender: tobject);
begin
showmessage('hi');
end;

procedure tform1.creatbtn;
var btn:tbutton;
begin
//...
btn.onclick :=btnclick;
end;

end.

 

L

loutian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-19

• #11

多人接受答案了。