Entwickler-Ecke
Delphi Language (Object-Pascal) / CLX - mouse.cursorpos unter delphi3?
fcg - Fr 04.04.03 20:45
Titel: mouse.cursorpos unter delphi3?
hi ihr
unter delphi 6 geht
das funzt unter delphi3 aber nicht. :shock: Wie kann ich das mit Delphi3 realisieren??
thÄnX
wulfskin - Fr 04.04.03 21:36
Hallo fcg!
Mach es mit der Api:
| Zitat: |
BOOL GetCursorInfo(
PCURSORINFO pci
); |
Und hier noch ein Beispielcode:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| var
Info: tagCURSORINFO;
begin
Info.cbSize := SizeOf(Info);
if GetCursorInfo(Info) then
Caption := format('%d; %d', [Info.ptScreenPos.x, Info.ptScreenPos.y])
else
caption := 'False'; |
Gruß wulfskin!
Nachtrag: Es geht nur kürzer mit
GetCursorPos. Aber das bekommst du auch so hin...
fcg - Sa 05.04.03 09:57
erstaml danke.
aber irgendwie smeckert der schon bei der variablen bezeichnung.
Quelltext
1:
| Undefinierter Bezeichner: tagCursorINFO |
:?: :?:
wulfskin - Sa 05.04.03 11:30
Hallo fcg!
Komisch, hast du die Unit Windows eingebunden? Wenn ja, könnte es daran liegen, dass die API unter Delphi 3 noch nicht vollständig verhanden ist.
In dem Fall versuch mal folgendes:
Quelltext
1:
2:
3:
4:
5:
| var
P: TPoint;
begin
if GetCursorPos(P) then
Caption := format('%d; %d', [P.x, P.y]); |
Wenn das auch nicht geht, dann melde dich nochmal!
Gruß wulfskin!
fcg - Sa 05.04.03 11:38
jepp danke. jetzt funzt es ;-)
unit windows war eingebunden...
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!