請問要如何才能讓ComboBox的下拉選單能夠是以圖形顯示 假如我想要拉下之後選擇我想要的PenStyle:虛線,直線,之類的而那些是以圖示 表現不是文字 我該怎麼達到這個效果呢還是COMBOBOX達不到需要用到別的元件???

參考一下這一篇： http://www.delphi-central.com/combo.aspx

大致上就是要自己畫，我弄了一個範例程式給您參考：    Example：    請拉一個 TComboBox、TImage 在畫面上，名稱為 ComboBox1 及 Image1，將 ComboBox1 的 Style 屬性設為 csOwnerDrawFixed， 並且在執行檔目錄下放 1.bmp、2.bmp、3.bmp、4.bmp、5.bmp (請自行挑選圖片)

__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
  /* 放五個空白選項 */
  ComboBox1->Items->Add("");
  ComboBox1->Items->Add("");
  ComboBox1->Items->Add("");
  ComboBox1->Items->Add("");
  ComboBox1->Items->Add("");
}    void __fastcall TForm1::ComboBox1DrawItem(TWinControl *Control, int Index,
      TRect &Rect, TOwnerDrawState State)
{
  Image1->Picture->LoadFromFile(IntToStr(Index ＋ 1) ＋ ".bmp");
  /* 自己畫選項 */
  ComboBox1->Canvas->StretchDraw(Rect, Image1->Picture->Bitmap);
  ComboBox1->Canvas->FrameRect(Rect);
}

P.S 程式中的 ＋ 是全型的，請置換成半型，因為我打半型的加號顯示不出來.. 發表人 -

謝謝您的指點 我已可以用了但是我想要在程式出使的時候給予圖形作為初值 該怎麼寫呢 我這樣一開始會是空白的耶>"< 請再給予我一些指點吧

__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
  /* 放五個空白選項 */
  ComboBox1->Items->Add("");
  ComboBox1->Items->Add("");
  ComboBox1->Items->Add("");
  ComboBox1->Items->Add("");
  ComboBox1->Items->Add("");
  ComboBox1->ItemIndex = 0;
}

發表人 - allenchan 於 2004/11/30 18:14:49

引言:

__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
  /* 放五個空白選項 */
  ComboBox1->Items->Add("");
  ComboBox1->Items->Add("");
  ComboBox1->Items->Add("");
  ComboBox1->Items->Add("");
  ComboBox1->Items->Add("");
  ComboBox1->ItemIndex = 0;
}

對了我把我的執行檔給別人用時卻產生Load不到圖片的問題難道我連圖也要一病給別人嗎?? 有別的方法解決嗎??? 發表人 - allenchan 於 2004/11/30 18:14:49

引言: ... 對了我把我的執行檔給別人用時卻產生Load不到圖片的問題難道我連圖也要一病給別人嗎?? 有別的方法解決嗎??? 發表人 - allenchan 於 2004/11/30 18:14:49

Project->Options->Linker->Use dynamic RTL 取消掉 Project->Options->Package->Build with runtime package 取消掉 試看看~~ 發表人 - rogan321 於 2004/12/01 05:26:10

引言:

引言: ... 對了我把我的執行檔給別人用時卻產生Load不到圖片的問題難道我連圖也要一病給別人嗎?? 有別的方法解決嗎??? 發表人 - allenchan 於 2004/11/30 18:14:49

Project->Options->Linker->Use dynamic RTL 取消掉 Project->Options->Package->Build with runtime package 取消掉 試看看~~ 發表人 - rogan321 於 2004/12/01 05:26:10

不知道是什麼原因還是有問題耶還是讀不到檔案的錯誤 抱歉可否再給予指點

您好，我給您的範例是要讀取外部的圖片沒有錯呀，您的那五張圖片必須放在執行檔的目錄下一併發佈，這只是範例喔，主要目的在於示範如何畫 ComboBox 的選項。

void __fastcall TForm1::ComboBox1DrawItem(TWinControl *Control, int Index,
      TRect &Rect, TOwnerDrawState State)
{
  /* 讀取 bimap 檔案 */
  Image1->Picture->LoadFromFile(IntToStr(Index   1)   ".bmp");
  /* 自己畫選項 */
  ComboBox1->Canvas->StretchDraw(Rect, Image1->Picture->Bitmap);
  ComboBox1->Canvas->FrameRect(Rect);
}

如果你不想 bitmap 檔案獨立在外部，比較正統的方法是將圖片放到 Resource ，然後程式要用的時候再去 LoadResource，簡單的方法就是畫面上拉五個 TImage 名稱為 Image1 ~ Image5，在 design time 時先點選 TImage 的 Picture 屬性，將圖檔 load 進來，然後程式改一下。

void __fastcall TForm1::ComboBox1DrawItem(TWinControl *Control, int Index,
      TRect &Rect, TOwnerDrawState State)
{

  TImage *img = dynamic_cast(FindComponent("Image"   IntToStr(Index   1)));      if (img)
  {
    /* 自己畫選項 */
    ComboBox1->Canvas->StretchDraw(Rect, img->Picture->Bitmap);
    ComboBox1->Canvas->FrameRect(Rect);
  }
}

發表人 - allenchan 於 2004/12/01 09:17:37

嗯沒錯但是如果我只給EXE檔就讀不到了 可是我今天有向我們的老師詢問 他說要把圖檔寫在RESOURCE裡面 然後COMPILE時會自動附在EXE檔裡 可是那又是另一種境界的事情了 可否能給予一些指點呢 感恩^^

引言: 您好，我給您的範例是要讀取外部的圖片沒有錯呀，您的那五張圖片必須放在執行檔的目錄下一併發佈，這只是範例喔，主要目的在於示範如何畫 ComboBox 的選項。

void __fastcall TForm1::ComboBox1DrawItem(TWinControl *Control, int Index,
      TRect &Rect, TOwnerDrawState State)
{
  /* 讀取 bimap 檔案 */
  Image1->Picture->LoadFromFile(IntToStr(Index   1)   ".bmp");
  /* 自己畫選項 */
  ComboBox1->Canvas->StretchDraw(Rect, Image1->Picture->Bitmap);
  ComboBox1->Canvas->FrameRect(Rect);
}

如果你不想 bitmap 檔案獨立在外部，比較正統的方法是將圖片放到 Resource ，然後程式要用的時候再去 LoadResource，簡單的方法就是畫面上拉五個 TImage 名稱為 Image1 ~ Image5，在 design time 時先點選 TImage 的 Picture 屬性，將圖檔 load 進來，然後程式改一下。

void __fastcall TForm1::ComboBox1DrawItem(TWinControl *Control, int Index,
      TRect &Rect, TOwnerDrawState State)
{

  TImage *img = dynamic_cast(FindComponent("Image"   IntToStr(Index   1)));      if (img)
  {
    /* 自己畫選項 */
    ComboBox1->Canvas->StretchDraw(Rect, img->Picture->Bitmap);
    ComboBox1->Canvas->FrameRect(Rect);
  }
}

發表人 - allenchan 於 2004/12/01 09:17:37

感謝你精闢的講解我來融會貫通一下如果有一或海請您多多指教^^

您好，如果針對此一主題您已有滿意的答覆，請先做個結束(就是給分啦..)，關於 > 發表人 -