Hallo,

ich möchte im OnMouseWheel-Ereigniss einer Form feststellen,
ob sich der Cursor über einem Panel befindet.

markieren

Delphi-Quellcode:

procedure TForm2.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
  if (MousePos.X > (Form2.Left + Form2.Panel2.Left)) and
     (MousePos.X < Form2.Left + Form2.Panel2.Left + Form2.Panel2.Width) and
     (MousePos.Y > (Form2.Top + Form2.Panel2.Top)) and
     (MousePos.Y < Form2.Top + Form2.Panel2.Top + Form2.Panel2.Height) then
    ShowMessage('Ich bin über Panel 2');
end;

Nun musste ich aber leider feststellen, das sich mein Rechteck was ich oben "definiert" habe,
um die Captionhöhe nach oben verschoben ist, wisst ihr wie ich die Höhe herausbekommen kann ?

Ich dachte schon an Form2.Height-Form2.ClientHeight aber da müsste ja auch der untere Rand dabei sein.


gruss

du kannst mit windowfrompoint prüfen welches fenster sich unter dem cursor befindet. Wenn als Handle das handle des panels zurück geliefert wird weißt du das sich der cursor über dem panel befindet.

markieren

Delphi-Quellcode:

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
  if WindowFromPoint(MousePos) = Panel1.Handle then
    caption := 'Maus über Panel'
  else
    caption := 'Maus über was anderem';
end;

Danke, funktioniert bestens !

Ich hab zwar noch Controls auf dem Panel, aber ich kann ja dann das Handel mit dem des Panels vergleichen, oder mit dem Handel des Parents.

gruss