掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
コンボボックスのドロップダウン (ID:7259)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
砂時計対応しました。 ちょっと面倒ですが。 Form1のPrivateに、 procedure ApplicationIdle(Sender: TObject; var Done: Boolean); を定義。 procedure TForm1.FormCreate(Sender: TObject); begin // Form作成時にComboBox.OnEnterを空にし、Application.OnIdleを設定する ComboBox1.OnEnter := nil; Application.OnIdle := ApplicationIdle; end; procedure TForm1.ApplicationIdle(Sender: TObject; var Done: Boolean); begin ComboBox1.OnEnter := ComboBox1Enter; PostMessage(TComboBox(Form1.ActiveControl).Handle, CB_SHOWDROPDOWN, 1, 0); //一度呼ばれたら二度と使わないのでnil。OnIdleが必要なら、フラグでチェックする手もあります。 Application.OnIdle := nil; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.