ScrollBox in Komponente mit Mausrad scrollen

[Ares]

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

[s.h.a.r.k]

wie wäre es, wenn du deiner komponente beibringst auf windows-messages zu reagieren?!

hier im forum dürftest du ausreichend zu finden, ebenso im mdsn.

damit habe ich es schon mal gemacht und geschafft. das problem dabei ist aber, dass es auch dann anschlägt, wenn z.b. ein memo ausgewählt ist, aber dann muss man das ganze eben etwas verfeinern, was aber einiges auf aufwand darstellen kann

[Ares]

Hallo!

Ich habe es jetzt wie vorgeschlagen mit der MOUSEWHEEL Nachricht versucht. Als Test habe ich hierzu der Komponente ein Label hinzugefügt, dass je nach Nachricht beschriftet werden soll:

Delphi-Quellcode:

type
  TMyComonent = class(TCustomPanel)
  private
    FScrollBox: TScrollBox;
    FLabel: TLabel
   
    procedure WMMouseWheel(var Msg: TWMMouseWheel); message WM_MOUSEWHEEL
  public 
    constructor Create(AOwner: TComponent); override;
  end; 

...

procedure TMyComonent .WMMouseWheel(var Msg: TWMMouseWheel);
begin
  FLabel.Caption := IntToStr(Msg.XPos);
end;

Reaktion: Keine.

Mach ich beim Empfang der Nachricht etwas falsch?

[s.h.a.r.k]

ich glaube, dass das problem der aktuelle focus sein wird... *grml*

ich baue das ganze grad mal schnell nach und teste das.

[edit]

wie gesagt: es liegt am focus... lass mir da nochmal was einfallen, wie man das lösen kann. eigentlich ist es ja sinn und zweck, dass gescrollt werden kann, wenn man mit der maus über dem panel (auch scrollbox etc.) liegt oder wenn ein control in der scrollbox den focus hat!? reicht das als bedingung?

[/edit]

[Ares]

Zitat von s.h.a.r.k:

wie gesagt: es liegt am focus... lass mir da nochmal was einfallen, wie man das lösen kann. eigentlich ist es ja sinn und zweck, dass gescrollt werden kann, wenn man mit der maus über dem panel (auch scrollbox etc.) liegt oder wenn ein control in der scrollbox den focus hat!? reicht das als bedingung?

Herzlichen Dank für deine super Unterstützung!!!

Auf dem Panel (= der Komponente) liegt im Wesentlichen nur die Scrollbox die verschiedene Label und einige Comboboxen enthält. Die ScrollBox soll scollen, wenn die Maus über dem Panel ist, oder irgendein Control in der Scrollbox den Focus hat.

[s.h.a.r.k]

anbei findest du die (teil-)lösung für dein problem. der test auf cursor-liegt-auf-panel ist nicht wirklich effizient, d.h. dass es auch sein kann, dass eine komponente -- hier kann auch eine form gemeint sein -- über deinem panel liegen, der cursor auf der oberen komponente platziert ist und beim drehen des scrollrads dein panel das scrollen erkennt. ich hoffe, du verstehst das problem bei einer überdeckung. vielleicht findest du im forum was, ich muss nur leider los, in die vorlesung

[Ares]

Hallo s.h.a.r.k,

ich bin erst heute wieder dazu gekommen deine Komponente zu testen. Sie funktioniert prima!

Noch einmal ganz herzlichen Dank für deine Hilfe!!!

Besten Dank
Ares

[s.h.a.r.k]

dir ist aber schon bewusst, dass es dabei auch probleme geben kann also nicht wundern! dies nur nochmals als hinweis.