掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
コンボボックスのドロップダウン (ID:7256)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんにちは。 いつも参考にさせていただいております。 コンボボックスの制御について、悩んでおります。 コンボボックスにカーソル移動時に、自動でリストをドロップダウンする為に、 下記のコーディングを行っています。 procedure TForm1.ComboBox1Enter(Sender: TObject); begin //フォーカスが移ったコンボボックスのリストをオープン表示 PostMessage(TComboBox(Form1.ActiveControl).Handle, CB_SHOWDROPDOWN, 1, 0); end; 通常は問題ないのですが、コンボボックスが画面の先頭項目で、画面起動と同時に ドロップダウンする際に、コンボボックスの枠の線がなくなってしまします。 ドロップダウンはします。 上記のコーディングをコメントにすると、ドロップダウンはしませんが、 コンボボックスは正しく表示されます。 何か、タイミングの問題のような気がするのですが、 どのように解決すればよいのか分かりません。 情報をお持ちの方がいらっしゃいましたら、ご教授下さい。 宜しくお願い致します。 Delphi7 を使っています。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.