Auf Scrollen reagieren

[Christian Seehase]

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 )