怎样在form上画一个类似button的按钮，并且按钮上可以书写文字？

lemonhuang 2003-09-08 10:29:11

...全文

69 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

lemonhuang 2003-09-09

打赏
举报

非常感谢 hiflower(花) ，结帖！

lemonhuang 2003-09-08

打赏
举报

因为需要很多按钮，所以我想用代码画出来。

zz5290 2003-09-08

打赏
举报

用代码画吗？

fhuibo 2003-09-08

打赏
举报

使用控件button就可以干吗画

sduzjw 2003-09-08

打赏
举报

有道理

hiflower 2003-09-08

打赏
举报

to sunware() :
TButton.Create(Self);

这样的Button能被看见吗?

应为:Button[i] := TButton.Create(Form1);
======================================
为什么是 Self? 在上例中，Self 就是 TForm1的一个实例，而不管这个实例变量是 Form1,还是 FormABC。

to lemonhuang(冰火) ：
先在 private 部分声明一个方法：
procedure ButtonsClick(Sender:TObject);

Buttons[i] := TButton.Create(Self);
Buttons[i].OnClick:=ButtonsClick; // 将 OnClick 的处理程序指向 ButtonsClick 方法。

lemonhuang 2003-09-08

打赏
举报

怎样触发click事件？

sunware 2003-09-08

打赏
举报

TButton.Create(Self);

这样的Button能被看见吗?

应为:Button[i] := TButton.Create(Form1);

hiflower 2003-09-08

打赏
举报

SORRY!!!写错了。
应该是 TButton.Create(Self);

buzymale 2003-09-08

打赏
举报

Buttons[i]:=TButton.Click;
应该是TButton.create;

lemonhuang 2003-09-08

打赏
举报

上面代码出现错误。

hiflower 2003-09-08

打赏
举报

var
Buttons:array[0..10] of TButton;

procedure TForm1.FormCreate(Sender:TObject);
var
i:Integer;
begin
for i:=0 to 10 do
begin
Buttons[i]:=TButton.Click;
Buttons[i].Parent:=Self;
Buttons[i].SetBounds(......);
Buttons[i].Visible:=True;
end;

end;