TForm mit Mausrad scrollen

[bwolf]

hi all,

wie der Titel bereits verrät, würde ich gerne eine normale Form dazu bewegen, sich mit dem Mausrad scrollen zu lassen.
Ich hab das folgendermaßen probiert:

In der Form einfach die Events FormMouseWheelDown und FormMouseWheelUp benutzt, um mit ScrollBy() die Form zu scrollen.

Delphi-Quellcode:

procedure Tform1.FormMouseWheelDown(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
  self.ScrollBy(0,-10);
end;

procedure Tform1.FormMouseWheelUp(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
  self.ScrollBy(0,10);
end;

Das klappt allerdings nicht so richtig - die Scrollbar verändert sich zwar (der Balken wächst bzwt. schrumpft), und der Content 'zittert' - aber Scrollen tuts nich.

Danke für eure Antworten,
greets ben

[Deep-Sea]

Versuch mal das:

Delphi-Quellcode:

VertScrollBar.Position := VertScrollBar.Position + 10;

[Progman]

Scrollen wird doch nur wirklich wirksam, wenn auch was im Client-Bereich ist, das zu groß ist. Oder soll das Form selbst seine Position verändern?

[bwolf]

Zitat:

Zitat von Deep-Sea

Versuch mal das:

Delphi-Quellcode:

VertScrollBar.Position := VertScrollBar.Position + 10;

Wunderbar das war's, danke für die schnelle Hilfe ;)