多個Button的Enabled或Disable? |
|
尚未結案
|
|
nlj859
資深會員   發表：139 回覆：375 積分：322 註冊：2004-03-20 發送簡訊給我 |
|
|
海星
高階會員  發表：41 回覆：217 積分：106 註冊：2003-01-09 發送簡訊給我 |
先寫個專門處理 Button 致能的副函數 void SetButton( bool b1, bool b2,......, bool b10 )
{
Button1->Enabled = b1;
Button2->Enabled = b2;
:
:
Button10->Enabled = b10;
} 然後在 Edit1的 OnKeydown 事件或 OnChange 事件內加入 switch( Key )
{
case VK_xxx:
SetButton( false, false, false, true, true.....true);
break;
case VK_....
:
:
} 要怎麼處理，就看你的需求了。
|
|
yorkland
高階會員 發表：2 回覆：138 積分：108 註冊：2004-12-17 發送簡訊給我 |
|
|
blk5743
高階會員 發表：34 回覆：371 積分：236 註冊：2003-11-17 發送簡訊給我 |
void __fastcall TForm1::Edit1KeyUp(TObject *Sender, WORD &Key,
TShiftState Shift)
{
if ( Edit1->Text == "1" )
{
Button1->Enabled = false;
Button2->Enabled = false;
Button3->Enabled= false;
Button4->Enabled = true;
Button5->Enabled = true;
Button6->Enabled = true;
Button7->Enabled = true;
Button8->Enabled = true;
Button9->Enabled = true;
Button10->Enabled = true;
}
else if ( Edit1->Text == "2" )
{
Button1->Enabled = true;
Button2->Enabled = true;
Button3->Enabled = true;
Button4->Enabled = false;
Button5->Enabled = false;
Button6->Enabled = false;
Button7->Enabled = false;
Button8->Enabled = false;
Button9->Enabled = false;
Button10->Enabled = false; }
}
|
|
xfile
初階會員 發表：21 回覆：80 積分：25 註冊：2004-10-02 發送簡訊給我 |
發表時間：2005-02-20 23:02:06
IP:219.80.xxx.xxx 未訂閱
系統時間：2024-05-13 0:55:00
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |