DELPHI! Kan nogen svare mig på dette spørgsmål...

Denne funktion burde kunne hjælpe dig...

SystemParametersInfo(SPI_GETMOUSE,........)   

Prøv at kigge i win32.hlp.

Mvh
Retep

Hmmmm... Se venligst bort fra ovenstående!!! Beklager, men her har du en løsning der virker. Som jeg HAR testet :-)

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
Var
  T : TPoint;
begin
  T := Mouse.CursorPos;
  Label1.caption := InttoStr(T.x) + ' ' + InttoStr(T.Y);
end;

Som du kan se, skal du bruge et label. Og det får koordinaterne, når du trykker på en knap...

Mvh
Retep

Beklager Retep!
Det duer ikke!
Hvad er Mouse.CursorPos? Hører det med til en eller anden unit? og i så fald hvilken?

Nu har jeg luret det!

Dit forslag til en løsning virker i delphi 5 (4?) men ikke i delphi 3!
Og da jeg ikke har delphi 5 [!] så kan jeg desværre ikke bruge din løsning!

Jeg har desværre ikke skrevet at det drejer sig om d3, så du er fuldt ud unskyldt!

Her har jeg et tillægsspørgsmål!

Kan man bruge units fra Delphi 5 i Delphi 3? Er det lovligt hvis man kan det? Eller er der her taler om crack/hack?

Ved jeg ikke, men prøv sådan her istedet. Det er den funktion som TMouse.CursorPos kalder...

procedure TForm1.Button1Click(Sender: TObject);
Var
T : TPoint;
begin
Win32Check(Windows.GetCursorPos(T));
Label1.caption := InttoStr(T.x)+ ' ' +InttoStr(T.y);
end;

Mvh
Peter  //P.s. Jeg bruger Delphi4

:-)

Eller måske bare:

procedure TForm1.Button1Click(Sender: TObject);
Var
  T : TPoint;
begin
  GetCursorPos(T);
  ShowMessage(IntToStr(T.x)+ ' '+IntToStr(T.y));
end;

Da GetCursorPos findes under win32.hlp...

Alle nævnte løsninger fungerer i Delphi 4, så der må da være en af dem der virker i Delphi 3!!!

Håber der er noget af det, der kan bruges...

Hallooo :-O Er du der???

Ja det er jeg, men jeg må desværre sige at dit forslag DUER simpelt hen ikke i Delphi 3!

Du får point alligevel.