全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1622
推到 Plurk!
推到 Facebook!

迴圈產生Button

答題得分者是:ikk
hank73317
一般會員


發表:20
回覆:47
積分:13
註冊:2008-12-12

發送簡訊給我
#1 引用回覆 回覆 發表時間:2009-02-13 13:48:44 IP:122.146.xxx.xxx 訂閱
這段是前輩大大的程式,是可以用迴圈產生12個Button,請問各位大大,要怎麼翻成BCB呢?

謝謝大大~~~~~~~



[code delphi]
var
FB: array[1..12] of TButton;
i: integer;
bgin
for i := 1 to 12 do
begin
FB[i] := TButton.Create(Self);
FB[i].Parent := Self; // 要設 Parent, 不然不會顯示
FB[i].Font.Size := 10;
FB[i].Width := 30;
FB[i].Height := 30;
FB[i].Top := 32*i;
end;
end;


[/code]


ikk
尊榮會員


發表:4
回覆:413
積分:768
註冊:2003-06-30

發送簡訊給我
#2 引用回覆 回覆 發表時間:2009-02-13 13:56:59 IP:163.28.xxx.xxx 訂閱

[code cpp]
TButton * pNewButton[12];
for(int i=0;i<12;i )
{
pNewButton[i] = new TButton(this);
pNewButton[i]->Parent = this;

pNewButton[i]->Font->Size = 12;
pNewButton[i]->Width = 30;
pNewButton[i]->Height = 30;
pNewButton[i]->Top = 32 * i;
}

[/code]
------
FPGA驗證, FPGA開發平台, http://smims.com
hank73317
一般會員


發表:20
回覆:47
積分:13
註冊:2008-12-12

發送簡訊給我
#3 引用回覆 回覆 發表時間:2009-02-13 14:28:17 IP:122.146.xxx.xxx 訂閱
 謝謝大大,布過還有個問題,就是如果我把 TButton * pNewButton[12];移到最前面變成全域變數

pNewButton[i] = new TButton(this);這行就會發生錯誤,可是我可能也必須在別的程序中使用到這些建立出來的Button屬性,

請問大大有辦法解決嗎??謝謝大大~~~~
ikk
尊榮會員


發表:4
回覆:413
積分:768
註冊:2003-06-30

發送簡訊給我
#4 引用回覆 回覆 發表時間:2009-02-13 14:38:19 IP:163.28.xxx.xxx 訂閱
應該也是可以使用吧...
可能要post code 上來看看
------
FPGA驗證, FPGA開發平台, http://smims.com
編輯記錄
ikk 重新編輯於 2009-02-13 14:40:13, 註解 無‧
ikk 重新編輯於 2009-02-13 14:41:22, 註解 無‧
hank73317
一般會員


發表:20
回覆:47
積分:13
註冊:2008-12-12

發送簡訊給我
#5 引用回覆 回覆 發表時間:2009-02-13 14:47:28 IP:122.146.xxx.xxx 訂閱
我將Form1->pNewBuuton[12].Check;寫在最前頭,產生[C++ Error] Unit1.cpp(11): E2238 Multiple declaration for 'Form1'的錯誤~~~

[code cpp]
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
Form1->pNewBuuton[12].Check; //****

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{

for(int i=0;i<12;i )
{
pNewButton[i] = new TButton(this);
pNewButton[i]->Parent = this;

pNewButton[i]->Font->Size = 12;
pNewButton[i]->Width = 30;
pNewButton[i]->Height = 30;
pNewButton[i]->Top = 32 * i;
}

}
[/code]



麻煩大大再幫我看一下
taishyang
站務副站長


發表:377
回覆:5490
積分:4563
註冊:2002-10-08

發送簡訊給我
#6 引用回覆 回覆 發表時間:2009-02-13 14:49:36 IP:118.169.xxx.xxx 訂閱
你程式不是這樣寫的喔^^

===================引 用 hank73317 文 章===================
謝謝大大,布過還有個問題,就是如果我把 TButton * pNewButton[12];移到最前面變成全域變數


hank73317
一般會員


發表:20
回覆:47
積分:13
註冊:2008-12-12

發送簡訊給我
#7 引用回覆 回覆 發表時間:2009-02-13 14:53:00 IP:122.146.xxx.xxx 訂閱
不好意思,我算很菜,所以都要常麻煩,希望大大可以幫忙解答
ikk
尊榮會員


發表:4
回覆:413
積分:768
註冊:2003-06-30

發送簡訊給我
#8 引用回覆 回覆 發表時間:2009-02-13 14:55:35 IP:163.28.xxx.xxx 訂閱
Form1->pNewBuuton[12].Check;
改為
TButton * pNewButton[12];
------
FPGA驗證, FPGA開發平台, http://smims.com
hank73317
一般會員


發表:20
回覆:47
積分:13
註冊:2008-12-12

發送簡訊給我
#9 引用回覆 回覆 發表時間:2009-02-13 14:58:47 IP:122.146.xxx.xxx 訂閱
剛剛可能不小心哪裡打錯了,所以不行,現在可以了,謝謝這位大大~~~~~
taishyang
站務副站長


發表:377
回覆:5490
積分:4563
註冊:2002-10-08

發送簡訊給我
#10 引用回覆 回覆 發表時間:2009-02-13 15:05:47 IP:118.169.xxx.xxx 訂閱
應該不是打錯的問題,是觀念的問題喔,建議再研讀一下C/C


===================引 用 hank73317 文 章===================
剛剛可能不小心哪裡打錯了,所以不行,現在可以了,謝謝這位大大~~~~~
hank73317
一般會員


發表:20
回覆:47
積分:13
註冊:2008-12-12

發送簡訊給我
#11 引用回覆 回覆 發表時間:2009-02-13 15:08:02 IP:122.146.xxx.xxx 訂閱
好~~~~我會好好再加強自己的,謝謝大大~~~~~
系統時間:2024-04-26 19:42:18
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!