Mouse

<quote>Hvordan kan jeg finde X og Y kordinaterne(jeg ved ikke hvoedan det staves) for musen?
</quote>

procedure TForm1.Button1Click(Sender: TObject);
var
Mouse: TMouse;
begin
Mouse := TMouse.Create;
ShowMessage('x: ' + IntToStr(Mouse.CursorPos.x) + ' y: ' + IntToStr(Mouse.CursorPos.y));
FreeAndNil(Mouse);
end;