1樓: 我的form上有3個panel，我要在指定的panel上動態建立多個button，請問各位，這**如何寫？點這個button時要能彈出選單
2樓: var
btn1:tbutton;
begin
btn1:=tbutton.create(owner)
btn1.parent:=panel1
.....
end3樓: var
button1:tbutton
begin
button1:=tbutton.create(nil);
button1.parent:=panel1;
end;
4樓: btn1.onclick:=yourprocedure
5樓: 對了，先謝各位了，我還要實現:點動態建立的這個button時彈出乙個選單
6樓: button1.popupmenu:=popupmenu1;如進銷存
7樓: 同意樓上.
8樓: procedure tform1.button2click(sender: tobject);//create buttons
vari:integer;
const
name='mybutton';
begin
if edit1.tag=0 then
begin
for i:=1 to 10 do
begin
tbutton.create(self).name:=name+inttostr(i);
with tbutton(findcomponent(name+inttostr(i))) do
begin
left:=10;
height:=20;
// width:=3;
top:=i*20+30;
parent:=self;
popupmenu:=popupmenu1;
end; 字串4
end;
edit1.tag:=1;
end;
if edit1.tag=1 then
abort;
end;
9樓: loveqingfeng:
能否按滑鼠左鍵也彈出選單？（現在右鍵是可以了）
10樓: popupmenu:=popupmenu1;
onclick:=popupmenu1.popup(self.button1.left ,self.button1.top );
動態選單 動態建立選單
動態建立選單 windows應用程式的介面，不僅僅是乙個簡單的窗體，每個窗體中都包含具體實現功 能的控制項，包括能夠顯示基本資訊的label控制項，能夠在其中輸入內容的文字框控制項，能 夠設定選項的選擇按鈕控制項等。net提供了很多使用簡單 功能強大的控制項，幫助程式設 計者快速有效地開發應用軟體。...
動態建立選單
function showwx menu release menu data array button data data this json array menu data data json decode this create menu data true if data errmsg ok ...
動態建立View的方法，包括Button等等
建立 myview uiview myview uiview alloc initwithframe cgrectmaker 0,0,100,100 anyview addsubview myview myview release 銷毀myview myview removefromsupervie...