リッチエディットで1ページスクロール リッチエディットで1ページスクロール
リッチエディットで[PageDown]キー押下時のように1ページスクロールさせるには、EM_SCROLL メッセージを使用します。
| ■ リッチエディットでページスクロールの例 |
procedure TForm1.Button1Click(Sender: TObject);
begin
if CheckBox1.Checked then
begin
{ １ページ上へ }
RichEdit1.Perform(EM_SCROLL, SB_PAGEUP, 0);
end else begin
{ １ページ下へ }
RichEdit1.Perform(EM_SCROLL, SB_PAGEDOWN, 0);
end;
end;
|
| 名前 | 意味 |
| SB_LINEDOWN | １行下へ |
| SB_LINEUP | １行上へ |
| SB_PAGEDOWN | １ページ下へ |
| SB_PAGEUP | １ページ上へ |