Formatierte Textausgabe in TMemo

[hathor]

Lösung:

Delphi-Quellcode:

procedure ScrollMemoDown(Memo: TMemo);
var Handle: HWND;
begin
  SendMessage(Memo.Handle,{ HWND of the Memo Control }
    WM_VSCROLL,    { Windows Message }
    SB_PAGEDOWN,   { Scroll Command }
    0)             { Not Used }
end;


procedure ScrollMemoUp(Memo: TMemo);
var Handle: HWND;
begin
  SendMessage(Memo.Handle, { HWND of the Memo Control }
    WM_VSCROLL,    { Windows Message }
    SB_PAGEUP,     { Scroll Command }
    0);            { Not Used }
end;

procedure TForm2.Button17Click(Sender: TObject);
begin
 ScrollMemoDown(Memo2);
 ScrollMemoDown(Memo3);
 ScrollMemoDown(Memo4);
 ScrollMemoDown(Memo5);
end;

procedure TForm2.Button18Click(Sender: TObject);
begin
 ScrollMemoUp(Memo2);
 ScrollMemoUp(Memo3);
 ScrollMemoUp(Memo4);
 ScrollMemoUp(Memo5);
end;