線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1211
推到 Plurk!
推到 Facebook!

有關Tpagecontrol的問題?

答題得分者是:BGman
rockmax
一般會員


發表:24
回覆:12
積分:7
註冊:2003-02-20

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-04-30 16:19:45 IP:163.28.xxx.xxx 未訂閱
在Tpagecontrol裡頭,我產生了六個tabsheet。 我想讓我的按鍵F1~F6,分別對應這六個TabSheet, 請問我該如何做呢?
BGman
初階會員


發表:28
回覆:85
積分:42
註冊:2003-01-10

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-04-30 16:51:39 IP:211.22.xxx.xxx 未訂閱
Hi rockmax ,請參考:
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  if ( Key == VK_F1 )
    Tpagecontrol->ActivePageIndex = 0;
  if ( Key == VK_F2 )
    Tpagecontrol->ActivePageIndex = 1;
  if ( Key == VK_F3 )
    Tpagecontrol->ActivePageIndex = 2;
  if ( Key == VK_F4 )
    Tpagecontrol->ActivePageIndex = 3;
  if ( Key == VK_F5 )
    Tpagecontrol->ActivePageIndex = 4;
  if ( Key == VK_F6 )
    Tpagecontrol->ActivePageIndex = 5;
}
taishyang
站務副站長


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

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-04-30 17:45:09 IP:140.135.xxx.xxx 未訂閱
rockmax您好:    
引言: 在Tpagecontrol裡頭,我產生了六個tabsheet。 我想讓我的按鍵F1~F6,分別對應這六個TabSheet,
補充一下,要將Form的KeyPreview的屬性改成true 然後
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
 if ( Key == VK_F1 )
   PageControl1->ActivePage=TabSheet1;
 if ( Key == VK_F2)
   PageControl1->ActivePage=TabSheet2;
 if ( Key == VK_F3)
   PageControl1->ActivePage=TabSheet3;
 if ( Key == VK_F4)
   PageControl1->ActivePage=TabSheet4;
 if ( Key == VK_F5)
   PageControl1->ActivePage=TabSheet5;
 if ( Key == VK_F6)
   PageControl1->ActivePage=TabSheet6;
}
  
順心< >< > ~我也是在學習的階段,所以請您多多見諒與指教~
系統時間:2024-03-29 6:16:55
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!