mauskoordinaten unabhaenging von form ermitteln!

[Aenogym]

hi,

Delphi-Quellcode:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var clientpoint, screenpoint: TPoint;
begin
  clientpoint.x := x;
  clientpoint.y := y;

  screenpoint := clienttoscreen(clientpoint);
  beep;
end;

Aenogym