如何利用迴圈改變多個Label的Caption? |
|
答題得分者是：harpist
|
|
makiyolove87
一般會員   發表：5 回覆：2 積分：0 註冊：2007-05-19 發送簡訊給我 |
Label10->Caption=" ";
Label9->Caption=" "; Label8->Caption=" "; Label7->Caption=" "; Label6->Caption=" "; Label5->Caption=" "; Label4->Caption=" "; Label3->Caption=" "; Label2->Caption=" "; Label1->Caption=" "; 將上列的程式碼改成利用for迴圈的方式進行清空，該怎麼用呢？ 另外求一下TGifImage這個VCL元件，版上的似乎已經失聯了ˊˋ"(若付上使用方法更好:D ) |
|
harpist
資深會員   發表：3 回覆：251 積分：430 註冊：2002-10-03 發送簡訊給我 |
<textarea class="cpp" rows="10" cols="60" name="code">TLabel *pLabel = NULL;
for(int i=1;i<=10;i )
{
pLabel = NULL;
pLabel = (TLabel*)Form->FindComponent("Label" AnsiString(i));
if(pLabel)
{
pLabel->Caption = "";
}
}
</textarea>
http://www.sulako.com/downloads.htm
------
~§~迷時師渡，悟了自渡~§~ |
|
Stallion
版主 發表：52 回覆：1600 積分：1995 註冊：2004-09-15 發送簡訊給我 |
插個花～這樣也行！
<textarea cols="60" rows="10" class="cpp" name="code"> void __fastcall TForm1::Button1Click(TObject *Sender) { int Count; TLabel *aLabel; for ( Count = 0 ; Count < this->ControlCount - 1 ; Count ) { if ( AnsiString(this->Controls[Count]->ClassName()) == "TLabel" ) { aLabel = (TLabel *)this->Controls[Count]; aLabel->Caption = ""; } } } </textarea> |
|
暗黑破壞神
版主  發表：9 回覆：2301 積分：1627 註冊：2004-10-04 發送簡訊給我 |
發表時間：2007-05-19 22:27:41
IP:59.127.xxx.xxx 訂閱
系統時間：2024-05-06 6:18:42
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |