フリーソフト

« [Delphi] Memoで入力できる文字数を制限する | トップページ | [Delphi] Memoで左右のマージンを設定する »

[Delphi] Memoで座標から文字位置へ変換する

マウスカーソルの位置にある文字の位置(先頭からのバイト数)と行番号を表示する例です。

procedure TForm1.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
 Res:DWORD;
begin
 //座標から文字位置を取得
 Res := Memo1.Perform(EM_CHARFROMPOS, 0, MAKELONG(X, Y));

 //先頭からのバイト数を表示
 Label1.Caption := IntToStr(LOWORD(Res));
 //行数を表示
 Label2.Caption := IntToStr(HIWORD(Res));
end;

« [Delphi] Memoで入力できる文字数を制限する | トップページ | [Delphi] Memoで左右のマージンを設定する »

Delphi」カテゴリの記事

TMemo」カテゴリの記事

コメント

この記事へのコメントは終了しました。