// Hiermit kann eine Listbox (auch CheckListbox), ein Memo oder ein RichEdit
// mit den folgenden vier Befehlen gescrollt werden:
// SB_LINEDOWN
// SB_LINEUP
// SB_PAGEDOWN
// SB_PAGEUP

// Getestet mit D4 unter Win98

procedure rollen(twc:TWinControl; w:integer);
begin
 postmessage(twc.handle, wm_vscroll, w, 0);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
 rollen(Listbox1, SB_LINEDOWN);
end;

// siehe auch Memo zeilen- oder buchstabenweise scrollen