掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
リッチエディットコントロールのカーソル位置がマウスクリック位置になるようにするには? (ID:5162)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんな感じでしょうか。 procedure TForm1.FormActivate(Sender: TObject); var mpos: TPoint; begin GetCursorPos(mpos); mpos := RichEdit1.ScreenToClient(mpos); RichEdit1.Perform(WM_LBUTTONDOWN, 1, MakeLParam(mpos.X, mpos.Y)); end; ちなみに、 RichEdit1.Perform(WM_LBUTTONDOWN, 1, MakeLParam(mpos.X, mpos.Y)); は、 RichEdit1.Perform(WM_LBUTTONDOWN, 0, 0); でもOKでした。 たぶん、WM_LBUTTONDOWNメッセージで、マウスの状態を取得しているんだと思います。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.