キャレットを持っているコンポーネントのハンドルを取得するには？ (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;