mausposition in einem fenster/objekt???

[TimsonC2000]

habe ein diagram das aus einem image in einer Scrollbox besteht
um bestimmte werte aus dem diagramm abzufragen brauche ich die genaue cursorposition

Code:

var
  CursorPos: TPoint;
begin
  GetCursorPos(CursorPos);
  panel7.caption := inttostr(CursorPos.X-Form1.Left-ScrollBox1.left-image1.left) + ' ' 
                   + inttostr(CursorPos.Y-Form1.top-ScrollBox1.top-image1.top);
end;

wie kann ich die höhe der oberen statusleiste (<- keine ahnung wie die genannt wird - da wo maximieren und x-schliessenbutton ist) abfragen

oda gibt es eine andere möglichkeit bei der positionsausgabe der maus inhalb eines fensters/objekts auszulesen

[Markus K.]

Hi,
schaue mal bei den Ereignissen der Komponente nach, dort kann man z.B. bei onMouseMove/onMouseDown/etc. die Koordinaten auslesen.
procedure TFHaupt.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);

Die Integerwerte X,Y geben dabei die Mauszeigerposition an.

[neolithos]

Delphi-Quellcode:

  CursorPos := ScreenToClient(Mouse.CursorPos);

Hilfe das!