掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
コンボボックスのフォーカス (ID：25078)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんな感じ。フォーム間の遷移でも有効です。 { Private 宣言 } public procedure WMActivate(var Msg:TWMActivate); message WM_ACTIVATE; end; var Form1: TForm1; implementation {$R *.dfm} ... procedure TForm1.WMActivate(var Msg:TWMActivate); var hEdit: HWND; k: integer; begin if ActiveControl is TComboBox then begin hEdit := GetWindow(TComboBox(ActiveControl).Handle, GW_CHILD); if hEdit <> 0 then begin k := SendMessage(hEdit, EM_LINELENGTH, 0, 0); PostMessage(hEdit, EM_SETSEL, k, k); end; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.