如何动态的显示Button

[a1a_36]

如何动态的显示Button。
即我在窗体上点那，Button就出现在那。

[zhanghelpsgz]

不太明白你的意思
如果是让组件能移动就:
Button1MousdDown(...){
WORD SC_DragMove=0xF012;
ReleaseCapture();
((TWinControl*)Sender)->Perform(WM_SYSCOMMAND,SC_DragMove,0);
}

如果是生成几个Button就用:
TButton *tb1=new TButton(this);
tb1->Parent=this;
tb1->Caption="你要Button";
tb1->Left=5;
tb1->Top=3;

[xabcxyz]

同意楼上,或者干脆在form的onclick里面移动butoon

[yuanreid]

这是我刚写好的，测试没有问题。鼠标点击窗口任意位置，在鼠标点击处创建一个Button

void __fastcall TForm1::FormClick(TObject *Sender)
{
    TButton* btn = new TButton(this);
    btn->Parent = this;
    TPoint p;
    p.x = Mouse->CursorPos.x;
    p.y = Mouse->CursorPos.y;
    p = ScreenToClient(p);

    btn->Left =  p.x - btn->Width/2;
    btn->Top =  p.y - btn->Height/2;
    btn->Caption = "New Button";
}

[我来看看CB]

主要看做什么用

[a1a_36]

[Quote=引用 3 楼 yuanreid 的回复:]
这是我刚写好的，测试没有问题。鼠标点击窗口任意位置，在鼠标点击处创建一个Button


C/C++ code
void __fastcall TForm1::FormClick(TObject *Sender)
{
TButton* btn = new TButton(this);
btn->Parent = this;
TPoint p;
p.x = Mouse->CursorPos.x;
p.y = Mouse->CursorPos.y;
p = ScreenToClient(p);

btn->Left = p.x - btn->Width/2;
btn->Top = p.y - btn->Height/2;
…
[/Quote]
要是事先放了一个Button，我在窗体上点击那，那个Button出现在那个点上。怎么解决呢~

[yuanreid]

那就只用这样就可以了：

// btn是你创建好的Button
TPoint p;
p.x = Mouse->CursorPos.x;
p.y = Mouse->CursorPos.y;
p = ScreenToClient(p);

btn->Left = p.x - btn->Width/2;
btn->Top = p.y - btn->Height/2;