markieren

Delphi-Quellcode:

procedure TfrmMain.Timer1Timer(Sender: TObject);
begin
if btnMEMOup.OnMouseDown then SendMessage(Memo1.Handle,WM_VSCROLL,SB_LINEUP,0);
if btnMEMODown.OnMouseDown then SendMessage(Memo1.Handle,WM_VSCROLL,SB_LINEDown,0);
if btnTVup.OnMouseDown then SendMessage(Treeview1.Handle,WM_VSCROLL,SB_LINEUP,0);
if btnTVDown.OnMouseDown then SendMessage(Treeview1.Handle,WM_VSCROLL,SB_LINEDown,0);
end;

ich möchte mit damit ein Memo und ein Treeview scrollen das Klappt bisher nur hab ich bisher 4 Timer dafür benötigt das soll jetzt einer schaffen

Hallo,

mal etwas anders gefragt: Was genau möchtest du denn erreichen? Denn ich bin überzeugt davon, dass es schönere Möglichkeiten gibt, als über ein Timer zu scrollen.

Mit

Botton.OnMouseDown kannst du ein OnMouseDown-Ereignis zuweisen bzw. auslösen, jedoch nicht überprüfen, ob der Button gerade gedrückt ist. Wäre es nicht sinnvoller, direkt auf diese OnMouseDown-Ereigniss zu reagieren bzw. damit zu arbeiten?

markieren

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

zusammenfalten · markieren

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