掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
カーソルの位置の行・列番号を表示するには？ (ID:8332)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
無駄なコードを実行しないように、少し改良しました。 type TForm1 = class(TForm) StatusBar1: TStatusBar; RichEdit1: TRichEdit; ApplicationEvents1: TApplicationEvents; procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean); procedure FormCreate(Sender: TObject); private { Private 宣言 } public revSelStart:integer; // 手動で追加する end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.ApplicationEvents1Idle(Sender: TObject; var Done: Boolean); var Line,CharNo:integer; begin if revSelStart <> RichEdit1.SelStart then with RichEdit1 do begin revSelStart := SelStart; Line := SendMessage(Handle,EM_LINEFROMCHAR,SelStart,0); CharNo := SendMessage(Handle,EM_LINEINDEX,Line,0); StatusBar1.Panels[0].Text := Format(' %.4d 行 %.4d 列', [Line+1,SelStart-CharNo+1]); end; end; procedure TForm1.FormCreate(Sender: TObject); begin revSelStart := -1; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.