掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
カーソルの位置の行・列番号を表示するには？ (ID：8331)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ApplicationEvents1 を置いてその OnIdle イベントハンドラを以下のようにします。 procedure TForm1.ApplicationEvents1Idle(Sender: TObject; var Done: Boolean); var Line,CharNo:integer; begin with RichEdit1 do begin Line := SendMessage(Handle,EM_LINEFROMCHAR,SelStart,0); CharNo := SendMessage(Handle,EM_LINEINDEX,Line,0); StatusBar1.SimpleText := Format(' %.4d 行 %.4d 列', [Line+1,SelStart-CharNo+1]); end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.