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

請問ComboBox點選選單內容開新Form的問題

尚未結案
fireworm
一般會員


發表:11
回覆:24
積分:7
註冊:2004-12-04

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-09-11 21:43:28 IP:61.225.xxx.xxx 未訂閱
如題,請問該如何讓所選的選項分別開出新的Form。 例如,Form1裡的ComboBox有1,2,3三個選項,我想選1時 開Form2,選2時開Form3,選3時開Form4,請問有辦法這樣做嗎? 因為我試過用onclick事件做不出來,該用哪個事件呢?謝謝。
malanlk
尊榮會員


發表:20
回覆:694
積分:577
註冊:2004-04-19

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-09-12 09:11:51 IP:203.69.xxx.xxx 未訂閱
放在 OnSelect 事件 裡面
fireworm
一般會員


發表:11
回覆:24
積分:7
註冊:2004-12-04

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-09-12 15:47:56 IP:61.225.xxx.xxx 未訂閱
可以麻煩舉個例子嗎?我是要讓不同選項開不同新的Form。 請問OnClick和OnSelect差別在哪?
malanlk
尊榮會員


發表:20
回覆:694
積分:577
註冊:2004-04-19

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-09-12 16:27:54 IP:203.69.xxx.xxx 未訂閱
procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Items.Add('1');
  ComboBox1.Items.Add('2');
  ComboBox1.Items.Add('3');
  ComboBox1.Style := csDropDownList;
  ComboBox1.ItemIndex := -1;
end;    procedure TForm1.ComboBox1Select(Sender: TObject);
begin
  case ComboBox1.ItemIndex of
    0,1: Caption := ComboBox1.Text;
  end;
  if ComboBox1.Text='3' then
    Caption := ComboBox1.Text;
end;    procedure TForm1.ComboBox1Click(Sender: TObject);
begin
  Label1.Caption := 'You Click ' IntToStr(ComboBox1.Tag);
  ComboBox1.Tag := ComboBox1.Tag 1;
  //if ComboBox1.ItemIndex=1 then
  //  Form2.ShowModal;
  ShowMessage('You Click');
end;
沒太大的差別, OnSelect 是 Dropdown List 收起來才會呼叫 寫在這裡比較安全而已, 我這兒呼叫 Form 都 OK, 要不要把你的程式貼上來看看....
fireworm
一般會員


發表:11
回覆:24
積分:7
註冊:2004-12-04

發送簡訊給我
#5 引用回覆 回覆 發表時間:2005-09-12 18:18:36 IP:61.225.xxx.xxx 未訂閱
您好,如果我的ComboBox有兩個選項台北市和桃園縣 然後直接去ComboBox的OnClick事件寫 void __fastcall TForm1::ComboBox1Click(TObject *Sender) {    Form2->Show(); } 結果不論點台北市或桃園縣都會開啟Form2,我的目的是點台北市 才會開啟Form2,點桃園縣會開啟Form3請問該如何改善,謝謝。
malanlk
尊榮會員


發表:20
回覆:694
積分:577
註冊:2004-04-19

發送簡訊給我
#6 引用回覆 回覆 發表時間:2005-09-12 18:54:11 IP:203.69.xxx.xxx 未訂閱
  switch (ComboBox1->ItemIndex)
  {
    case 0: // 台北縣
    {   
      Form2->Show();
      break;
    } 
            
    case 1: // 桃園縣
    {
      Form3->Show();
      break;
    }
  }
系統時間:2024-11-23 22:06:06
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!