Mausposition bzw. Bezugspunkt

[fredel007]

hi leute,....
hab ein kleines problem,...
wenn ich in meinem programmfenster (Form1) meine Mausposition
ermittlen möchte gibt er mir immer den wert der mausposition
auf dem gesamten bildschirm zurück!

bisher hab ich das so gemacht:

Delphi-Quellcode:

label1:=inttostr(Mouse.cursorpos.x);
label2:=inttostr(Mouse.cursorpos.y);

wie kann ich das machen das das fenster mein bezugspunkt ist und links oben dann [0/0] ist?

danke schon mal,,...

gruß freddy

[-tobi-]

Ich hoffe mein Code hilft dir!

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  LabeledEdit1.Text:=inttostr(X);
  LabeledEdit2.Text:=inttostr(y);
end;

Gruß Tobi

[Jens Schumann]

Hallo,
such mal in der OH nach ClientToScreen und ScreenToClient

[fredel007]

ja, schon, so gehts auch,...

ich hatte aber eher an einen befehl gedacht den außerhalb von mousemouve
anwenden kann,...
aber wenn es da nichts geben sollte dann geht das zur not auch so,...
danke mal,..

[nieurig]

Hi Freddy,
das müßte doch gehen, wenn Du die aktuellen Koordinaten von der Mausposition "abziehst".

LokalX := Mouse.cursorpos.x - top;
LokalY := Mouse.cursorpos.y - left);

Ist nur ne Idee ...
Niels

[maximov]

Es steht doch da schon: ClientToScreen und ScreenToClient sind eure freunde!