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

請問PageControl換頁的問題

答題得分者是:Stallion
leon17
一般會員


發表:5
回覆:14
積分:3
註冊:2006-12-31

發送簡訊給我
#1 引用回覆 回覆 發表時間:2007-01-04 23:16:00 IP:140.121.xxx.xxx 訂閱
不好意思
我設計一個PageControl~共有8個表單
每個表單有五個RadioButton
表單一選擇後~才能換下一頁~依此類推...........
我參考了help的問題
-------------------------------------------------------------
void __fastcall TForm1::PageControl1Changing(TObject *Sender,
bool &AllowChange)
{
if (((TPageControl *)Sender)->ActivePage == TabSheet1)
AllowChange = (!xxxxx);
else
AllowChange = true;
if (AllowChange == false)
{
MessageBeep(0);
Edit1->SetFocus();
}
}
-------------------------------------------------------------
請問xxx要怎麼改呢?
RadioButton->Action也不行@@
以及如何適用每一表單呢?
Stallion
版主


發表:52
回覆:1600
積分:1995
註冊:2004-09-15

發送簡訊給我
#2 引用回覆 回覆 發表時間:2007-01-04 23:34:13 IP:211.22.xxx.xxx 未訂閱
新增的PAGE裏面都有個Tag屬性,指定每個PAGE的Tag後來判斷目前在那個Page.
void __fastcall TForm1::PageControl1Changing(TObject *Sender, bool &AllowChange)
{
switch ( ( (TPageControl *)Sender)->ActivePage->Tag )
{
case 1:
AllowChange = true;
......
break;
case 2:
......
break;
.....
}
if ( ! AllowChange )
{
MessageBeep(0);
Edit1->SetFocus();
}
}

另外允許換頁 AllowChange = true,反之 AllowChange = false
leon17
一般會員


發表:5
回覆:14
積分:3
註冊:2006-12-31

發送簡訊給我
#3 引用回覆 回覆 發表時間:2007-01-05 17:33:09 IP:140.121.xxx.xxx 訂閱
那請問大大
若我換頁的基準是以需按RadioButton來考量

case 1:
AllowChange = false;
"RadioButton->O nClick" // 這樣為什麼不行呢
break;
謝謝@@
Stallion
版主


發表:52
回覆:1600
積分:1995
註冊:2004-09-15

發送簡訊給我
#4 引用回覆 回覆 發表時間:2007-01-05 23:29:32 IP:211.22.xxx.xxx 未訂閱
既然 AllowChange = false; 不能換頁!
那呼叫這個事件處理程序作啥?RadioButton->OnClick
leon17
一般會員


發表:5
回覆:14
積分:3
註冊:2006-12-31

發送簡訊給我
#5 引用回覆 回覆 發表時間:2007-01-06 10:44:57 IP:140.121.xxx.xxx 訂閱
唔哦哦哦
謝謝大大

===================引 用 文 章===================

既然 AllowChange = false; 不能換頁!
那呼叫這個事件處理程序作啥?RadioButton->OnClick
系統時間:2024-05-06 19:35:37
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!