掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
コンボボックス (ID:18691)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
これはかなり簡単にできます。 新規で Form1 に ComboBox1 を置いて procedure TForm1.FormCreate(Sender: TObject); begin ComboBox1.Style := csOwnerDrawFixed; ComboBox1.ItemHeight := 16; // 以上はオブジェクトインスペクタでも設定できる ComboBox1.Items.AddObject('Red',TObject(clRed)); ComboBox1.Items.AddObject('Green',TObject(clGreen)); ComboBox1.Items.AddObject('Blue',TObject(clBlue)); ComboBox1.Items.AddObject('Yellow',TObject(clYellow)); end; procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); var cb: TComboBox; begin cb := Control as TComboBox; cb.Canvas.Brush.Color := TColor(cb.Items.Objects[Index]); cb.Canvas.FillRect(Rect); cb.Canvas.TextOut(Rect.Left+2, Rect.Top+2, cb.Items[Index]); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.