Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi GetCursorPos - Fehler (https://www.delphipraxis.net/96162-getcursorpos-fehler.html)

naudoc 19. Jul 2007 16:34


GetCursorPos - Fehler
 
Hallo,
habe folgenden Fehler mir Getcursorpos:
[Fehler] Unit1.pas(1827): Undefinierter Bezeichner: 'getcursorpos'
in Quelltext:
Delphi-Quellcode:
procedure TForm1.Tangentezeichnen;
var term:string;
    xo:real;
    x:integer;
    Pos:TPoint;
begin
if form3.Tangente.checked=true then
 begin
 Form3.getcursorpos(Pos);
Bitte um Hilfe, oder eine gleichgültig einfache Alternative...

mfG

alleinherrscher 19. Jul 2007 16:40

Re: GetCursorPos - Fehler
 
mach mal das Form3. weg also nur GetCursorPos(TPoint)

naudoc 19. Jul 2007 17:08

Re: GetCursorPos - Fehler
 
Es soll aber von Form3 bestimmen, und nicht von Form1...
danke trotzdem...

Florian H 19. Jul 2007 17:15

Re: GetCursorPos - Fehler
 
GetCursorPos bestimmt die Position des Mauszeigers auf dem Bildschirm, nicht auf der Form.

3_of_8 19. Jul 2007 17:32

Re: GetCursorPos - Fehler
 
Delphi-Quellcode:
var p: TPoint;
begin
  GetCursorPos(p);
  p:=Form3.ScreenToClient(p);
end;
;)

bitsetter 19. Jul 2007 17:37

Re: GetCursorPos - Fehler
 
Hi,

GetCursorPos() kann man sich auch noch sparen:
Delphi-Quellcode:
p := Form3.ScreenToClient(Mouse.CursorPos);

naudoc 23. Jul 2007 13:56

Re: GetCursorPos - Fehler
 
Vielen Dank! Es klappt.
Das Ergebnis könnt ihr unter Freeware > Mathemax finden!

mfG


Alle Zeitangaben in WEZ +1. Es ist jetzt 08:03 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz