掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
コンボボックスのフォーカス (ID：25082)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>Editのように、「選択状態を維持する」ことはできない >コンボボックスの仕様なんでしょうか？ できますよーー。 でも、質問は >SelectAll 状態にしない方法はありますか？ でしたから。 private { Private 宣言 } selStart, selEnd: integer; public { Public 宣言 } procedure WMActivate(var Msg: TWMActivate); message WM_ACTIVATE; end; var Form1: TForm1; implementation {$R *.dfm} uses Unit2; procedure TForm1.WMActivate(var Msg: TWMActivate); var hEdit: HWND; begin if Msg.Active <> WA_INACTIVE then begin if ActiveControl is TComboBox then begin hEdit := GetWindow(ActiveControl.Handle,GW_CHILD); PostMessage(hEdit, EM_SETSEL, selStart, selEnd); end; end else if Msg.Active = WA_INACTIVE then begin if ActiveControl is TComboBox then begin hEdit := GetWindow(ActiveControl.Handle,GW_CHILD); SendMessage(hEdit, EM_GETSEL, WParam(@SelStart), LParam(@selEnd)); end; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.