Hallo!
Eine Komponente an der ich gerade arbeite (von TCustomPanel abgeleitet) enthält eine TScrollBox. Hierbei habe ich das Problem, dass die ScrollBox nicht auf Bewegungen des Mausrades reagiert:
Delphi-Quellcode:
type
TMyComonent = class(TCustomPanel)
private
FScrollBox: TScrollBox;
// procedure ScrollBoxMouseWheelDown(Sender: TObject; Shift: TShiftState;
// MousePos: TPoint; var Handled: Boolean);
// procedure ScrollBoxMouseWheelUp(Sender: TObject; Shift: TShiftState;
// MousePos: TPoint; var Handled: Boolean);
public
constructor Create(AOwner: TComponent); override;
procedure ScrollBoxMouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
procedure ScrollBoxMouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
property ScrollBox : TScrollBox read FScrollBox;
end;
...
constructor TMyComonent.Create(AOwner: TComponent);
begin
...
FScrollBox := TScrollBox.Create(self);
FScrollBox.Parent := self;
...
FScrollBox.OnMouseWheelDown := ScrollBoxMouseWheelDown;
FScrollBox.OnMouseWheelUp := ScrollBoxMouseWheelUp;
...
// OnMouseWheelDown := ScrollBoxMouseWheelDown;
// OnMouseWheelUp := ScrollBoxMouseWheelUp;
end;
procedure TMyComonent.ScrollBoxMouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
FScrollBox.VertScrollbar;
FScrollBox.VertScrollbar.Position := FScrollBox.VertScrollbar.Position + FScrollBox.VertScrollbar.Increment;
Handled := true;
end;
procedure TMyComonent.ScrollBoxMouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
FScrollBox.VertScrollbar;
FScrollBox.VertScrollbar.Position := FScrollBox.VertScrollbar.Position - FScrollBox.VertScrollbar.Increment;
Handled := true;
end;
In dieser Art und Weise funktioniert das ganze leider nicht. Erst ich dem Formular, dass die Komponente enthält ebenfalls Eventhandler für die das Scrollrad zuweise und von dort aus die Eventhandler der Komponente aufrufe reagiert die ScrollBox:
Delphi-Quellcode:
procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
if PtInRect(MyComonent1.ScrollBox.ClientRect, ScreenToClient(MousePos)) then
MyComonent1.ScrollBoxMouseWheelDown(Sender, Shift, MousePos, Handled);
end;
procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
if PtInRect(MyComonent1.ScrollBox.ClientRect, ScreenToClient(MousePos)) then
MyComonent1.ScrollBoxMouseWheelUp(Sender, Shift, MousePos, Handled);
end;
Nur aus diesem Grund habe ich die Eventhandler für das Scrollen in TMyComonent public gemacht. Aber die Lösung ist nicht praktikabel. Ich verwende mehrere dieser Komponenten auf einem Form, jede müsste in die Eventhandler des Forms eingetragen werdne. Außerdem sollte die Komponente in sich funktionieren und nicht noch Änderungen am Form voraussetzen.
Wie muss ich also die Komponente anpassen, damit das Scrollen auch ohne Änderungen am Form funktioniert?
Besten Dank
Ares