掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ComboBoxの選択候補が無い場合のドロップダウン制御について (ID:45912)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
「気配」を消すようにしてみました。 「消した」というのが見えますが(^^; type TForm1 = class(TForm) ComboBox1: TComboBox; procedure ComboBox1DropDown(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } WM_CLOSEUP: cardinal; public { Public declarations } protected procedure WndProc(var Msg: TMessage); override; end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.ComboBox1DropDown(Sender: TObject); begin if ComboBox1.Items.Count = 0 then begin PostMessage(Handle, WM_CLOSEUP, 0, 0); Abort; end; end; procedure TForm1.FormCreate(Sender: TObject); begin WM_CLOSEUP := RegisterWindowMessage('WM_CLOSEUP_TEST'); end; procedure TForm1.WndProc(var Msg: TMessage); begin if Msg.Msg = WM_CLOSEUP then ComboBox1.DroppedDown := False else inherited WndProc(Msg); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.