Mouse Position und Cursor verändern

kampfkoloss23 · Beiträge: 96

HAllo

Ich Programmiere gerade ein Zielkreuz für ein Spiel. Mit Getcursorpositon() ruft man den aktuellen Ort ab, aber ich hab nicht gefunden, wie man:

Position von Cursor festlegt
Am besten Cursor unsichtbar macht
(um Ortsdaten für neuen Cursor zu benutzen)

Weiß vielleicht einer von euch den Befehl??

(Ich hasse feste Hilfe im Delphi Programm, die ist so *mist*e und hat nicht mal die Hälfte der möglichen Befehle. Die hätten sich ruhig mal mehr anstrengen können. Ich gehe alle 50-60 Einträge über Mäuse durch und nichts genaues steht drin!!! :autsch:

)

torstenheinze · Beiträge: 461

zum setzten:

markieren

Quelltext

1:	SetCursorPos (10,40);

zum unsichtbar:

markieren

Quelltext

1:	Form1.Cursor := -1;

Gruß
Torsten

(03.01. 09:56 Tino) Code-Tags hinzugefügt.

Leathl · Beiträge: 276

---

torstenheinze · Beiträge: 461

ja, die kan man auch benutzen

achso: man kann im objektinspektor die -1 auch reinschreiben

crnone nicht :wink:

Dev4u.ch · Beiträge: 36

doch

crNone kann man auch reinschreiben..

unter Coursor

_________________
Jedes Programm wurde von einem Menschen gecodet - Menschen machen nun mal Fehler!!

torstenheinze · Beiträge: 461

ne, bei mir kommt da ein fehler, das er nicht weiß, was crnone ist!!!
egal

Klabautermann · Verfasst: Fr 03.01.03 11:02

Hallo,

torstenheinze hat folgendes geschrieben:

ne, bei mir kommt da ein fehler, das er nicht weiß, was crnone ist!!!

dann nehme mal die Controls in deine USES Klausel ein. Dann sollte das gehen.

Gruß
Klabautermann

torstenheinze · Beiträge: 461

ok, danke für den tipp

wenn ich das als quelltext eingebe, das ging das auch schon vorher, nur eben im objectinspector, da gings net, aber egal

kampfkoloss23 · Beiträge: 96

Danke an schon mal :lol:

Es funkzt, doch wie nimmt man die Control in die Uses klausel auf??
Einfach reinschreiben oder? Aber was genau?

(Tschuldigung für die Frage, aber ich hab halt noch nich so viel Ahnung)

DaFox · Beiträge: 189

Hi!

Richtig. Entweder Du fügst Controls einfach ein, indem Du es hinten an uses anhängst:

markieren

Quelltext

1:	uses ..., Controls;

oder du definierst Dir crNone selbst:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

type
  TCursor = -32768..32767;
...
const
  crNone = TCursor(-1);

var
  Form1: TForm1;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  Screen.Cursor := crNone;
end;

Gruß,
Markus

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme