动态生成控件(100分)

whitelight · 2006-05-09

比如动态生成button按钮.但不是点击某一按钮在窗体固定位置生成,而是像delphi那样在鼠标点击窗体某一位置时生成,请问怎样编写代码

szmh · 2006-05-09

uses StdCtrls;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
mybutton:tbutton;
begin
if button=mbright then
begin
mybutton:=tbutton.create(self);
form1.InsertControl(mybutton);
mybutton.left:=x;
mybutton.top:=y;
end;
end;

whitelight · 2006-05-09

下次需要生成edit时怎么办,确定生成什么控件的按钮代码怎么写

zxygraphics · 2006-05-09

szmh · 2006-05-09

你可以弄个菜单什么的,菜单项里先列好要生成的控件选项,哪个被选择就产生那一种,无选择就什么也不产生.

szmh · 2006-05-09

然后在上面mousedown事件中判断一下那一种被选择就产生那一种

5207 · 2006-05-09

将坐标确认就可以了.没有什么特别的.
至于不同的控件,你只要申明一个基本类,这个基本类可以包含一类控件即可

whitelight · 2006-05-09

如果要生成很多种控件,那么鼠标事件的代码不是很多很烦琐吗?

5207 · 2006-05-09

鼠标事件?指何物?

whitelight · 2006-05-09

5207能给出代码吗?谢谢了

slf0205 · 2006-05-09

smzh,你的代码我试,不行啊?

slf0205 · 2006-05-09

那如果想动态生edit,代码怎么写?

szmh · 2006-05-09

不行吗?我可是试过的!
注意:
if button=mbright then
这一句的意思是:按鼠标右键产生!

szmh · 2006-05-09

把tbutton换成tedit,就产生edit

张辉明 · 2006-05-10

先声明一个动态数组，来放动态生成的控件，这样管理比较方便。

网中戏 · 2006-05-10

先放几个选择框用来指定要动态生成什么类的控件。根据选择来建立

whitelight · 2006-05-14

多人接受答案了。

动态生成控件(100分)

whitelight

Unregistered / Unconfirmed

szmh

Unregistered / Unconfirmed

whitelight

Unregistered / Unconfirmed

zxygraphics

Unregistered / Unconfirmed

szmh

Unregistered / Unconfirmed

szmh

Unregistered / Unconfirmed

5207

Unregistered / Unconfirmed

whitelight

Unregistered / Unconfirmed

5207

Unregistered / Unconfirmed

whitelight

Unregistered / Unconfirmed

slf0205

Unregistered / Unconfirmed

slf0205

Unregistered / Unconfirmed

szmh

Unregistered / Unconfirmed

szmh

Unregistered / Unconfirmed

张辉明

Unregistered / Unconfirmed

网中戏

Unregistered / Unconfirmed

whitelight

Unregistered / Unconfirmed

Similar threads