Thema: Delphi Auf Scrollen reagieren

Einzelnen Beitrag anzeigen

Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.116 Beiträge
 
Delphi 11 Alexandria
 
#3
  Alt 26. Jun 2003, 14:32
Moin Sanchez,

wenn Du das öfter brauchst wäre das vielleicht ganz sinnvoll.
Ansonsten könntest Du das aber vielleicht auch ganz einfach so nachrüsten (ich weiss die Message leider nicht )


Delphi-Quellcode:
TForm1 = class(TForm)
  //...
  procedure MyScrollEvent(var msg : TMessage); message SO_WIE_DIE_MESSAGE_HEISST;
  //...
end;

//...

implementation

procedure TForm1.MyScrollEvent(var msg : TMessage);
begin
  // Was beim Scrollen passieren soll
end;
Sollte das nicht gehen, kann man sich auch noch in die WindowProc des Controls oder des übergeordneten Fensters (kann auch ein Control sein)einklinken. (letzteres hab' ich z.B. für CBN_CLOSEUP nicht anders hinbekommen )
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat