掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
メモ帳の最終行にカーソル (ID：32759)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんな感じか？ procedure TForm1.Button1Click(Sender: TObject); var hMemo, hEdit: HWND; TxtLen :integer; begin hMemo :=FindWindow('Notepad', nil); if hMemo <> 0 then begin hEdit :=FindWindowEx(hMemo, 0, 'Edit', nil); if hEdit <> 0 then begin //文字列長を取得 TxtLen :=SendMessage(hEdit, WM_GETTEXTLENGTH, 0, 0); //キャレットを最後尾に移動 SendMessage(hEdit, EM_SETSEL, TxtLen, TxtLen); //キャレットが見える位置までスクロール SendMessage(hEdit, EM_SCROLLCARET, 0, 0); end; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.