掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
RichEditで指定行を中央に表示するには (ID：29154)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
綺麗じゃないですけど・・・ しかもこのままだと下にページスクロールする余裕がないときに正しく取得できません・・・ procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); var i1, i2: integer; begin if Key=VK_F1 then begin i1 := RichEdit1.Perform(EM_GETFIRSTVISIBLELINE, 0, 0); RichEdit1.Perform(WM_SETREDRAW, wParam(FALSE), 0); RichEdit1.Perform(EM_SCROLL, SB_PAGEDOWN, 0); i2 := RichEdit1.Perform(EM_GETFIRSTVISIBLELINE, 0, 0); RichEdit1.Perform(EM_SCROLL, SB_PAGEUP, 0); RichEdit1.Perform(WM_SETREDRAW, wParam(TRUE), 0); ShowMessage('表示行数='+IntToStr(i2-i1+1)); end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.