掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
キャレットを持っているコンポーネントのハンドルを取得するには？ (ID:16548)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
フォーカスを与えたすべてにメッセージを送信しているわけですから、不用意に書き換えてしまう恐れがあります。そこのところ工夫あれ。 procedure TForm1.Timer1Timer(Sender: TObject); var ThisWH, selfID, wh, otherID, prcID, wd: HWND; buf: array[0..1000] of char; begin Timer1.Enabled := false; selfID := GetCurrentThreadID; wh := GetForegroundWindow; otherID := GetWindowThreadProcessID(wh, @prcID); if AttachThreadInput(otherID, selfID, True) then begin SetForegroundWindow(wh); ThisWH := GetFocus; AttachThreadInput(otherID, selfID, False); SendMessage(ThisWH, WM_GETTEXT, 1000, Integer(@buf[0])); if 'abc' <> string(buf) then begin buf := 'abc'; SendMessage(ThisWH, WM_SETTEXT, 3, Integer(@buf[0])); end; end; Timer1.Enabled := true; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.