mouse.cursorpos unter delphi3?

fcg · Beiträge: 360 WinXP D3 Prof, D6 Pers

hi ihr

unter delphi 6 geht

Quelltext

1:	Mouse.CursorPos.X

das funzt unter delphi3 aber nicht. :shock:

Wie kann ich das mit Delphi3 realisieren??

thÄnX

_________________
.: Wer für alles offen ist, kann nicht ganz dicht sein! :.

wulfskin · Verfasst: Fr 04.04.03 21:36

Hallo fcg!

Mach es mit der Api:

Zitat:

BOOL GetCursorInfo(
PCURSORINFO pci
);

Und hier noch ein Beispielcode:

markieren

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...

_________________
Manche antworten um ihren Beitragszähler zu erhöhen, andere um zu Helfen.

fcg · Beiträge: 360 WinXP D3 Prof, D6 Pers

erstaml danke.

aber irgendwie smeckert der schon bei der variablen bezeichnung.

markieren

Quelltext

1:	Undefinierter Bezeichner: tagCursorINFO

_________________
.: Wer für alles offen ist, kann nicht ganz dicht sein! :.

wulfskin · Verfasst: 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:

markieren

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!

_________________
Manche antworten um ihren Beitragszähler zu erhöhen, andere um zu Helfen.

fcg · Beiträge: 360 WinXP D3 Prof, D6 Pers

jepp danke. jetzt funzt es ;-)

unit windows war eingebunden...

_________________
.: Wer für alles offen ist, kann nicht ganz dicht sein! :.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme