Hallo,
ich möchte im OnMouseWheel-Ereigniss einer Form feststellen,
ob sich der Cursor über einem Panel befindet.
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