ScrollBox scrollen aber in das falschen Form !

[thomas2009]

Hi

ich möchte in form3 die ScrollBox scrollen aber was passiert, ScrollBox in Form2 wird scrollt und nicht in Form3, wo ich klicke !
Nur wenn ich Form2 ausblende dann funktioniert ohne Problem
Woran kann es liegen ?

Delphi-Quellcode:

procedure TForm3.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);

Var
  i, g: Integer;
  msg: Cardinal;
  code: Cardinal;
begin
  If WindowFromPoint( mouse.Cursorpos ) = Form3.scrollbox1.Handle Then Begin
    Handled := true;
    If ssShift In Shift Then
      msg := WM_HSCROLL
    Else
      msg := WM_VSCROLL;

    If WheelDelta < 0 Then
      code := SB_LINEDOWN
    Else
      code := SB_LINEUP;

    g:= Mouse.WheelScrollLines;
    For i:= 1 to g Do
      Form3.scrollbox1.Perform( msg, code, 0 );
    Form3.scrollbox1.Perform( msg, SB_ENDSCROLL, 0 );
  End;
end;

[mkinzler]

Werete doch den Sender aus, um die betroffene Scrollbox zu ermitteln

[thomas2009]

Und wie werte ich den Sender aus ?

[mkinzler]

Ist ein Parameter welche der Eventbehandlungsroutine übergeben wird

Delphi-Quellcode:

(Sender as TForm).

liefert dir das Formular.