Fensterposition anzeigen?

[mlspider]

Im Image-Ereignis MouseUp:

Delphi-Quellcode:

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 Label1.Caption:=IntToStr(Form1.Top);
end;