Delphi-Quellcode:
procedure TfrmMain.btnMEMOupClick(Sender: TObject);
begin
SendMessage(Memo1.Handle,WM_VSCROLL,SB_LINEUP,0)
end;
so hab ich es ja auch nur scrolt dann immer nur 1 zeile
deswegen hab ich bei
Delphi-Quellcode:
procedure TfrmMain.btnMEMOupMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Timer1.enabled:=true;
end;
procedure TfrmMain.btnMEMOupMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Timer1.enabled:=false;
end;
über einen timer kann ich dann scrollen wie ich den button drücke
nur hab ich insgesamt 4 buttons zum scrollen will aber keine4 timer
Edit:Hat sich erledigt