Entwickler-Ecke
Windows API - Mauszeiger von "Geisterhand" bewegen lassen
chritzl - Mo 17.03.03 13:25
Titel: Mauszeiger von "Geisterhand" bewegen lassen
hallo,
wie kann ich den Mauszeiger von meinem Programm steuern lassen?
:roll:
Also, er sollte sich von alleine bewegen..
Motzi - Mo 17.03.03 13:30
Stichwort: SetCursorPos() ...
chritzl - Mo 17.03.03 13:55
thanx!
GoD_fire - Mi 19.03.03 13:14
Wenn ich den befehl benutzen will muss ich doch variable als TPoint defienieren oder? und wie kann ich das machen ? einfach definieren ?
thx GoD_fire
wulfskin - Mi 19.03.03 15:19
Hallo GoD_fire!
SetCursorPos ist eine API-Funktion und verlangt keine Variable vom Typ TPoint. Du musst nur die X und die Y-Koordinate übergeben:
Quelltext
1:
2:
3:
4:
5:
| begin
X := 10;
Y := 10;
SetCursorPos(X, Y); //obenlinks
end; |
Gruß wulfskin!
P.S.: Wenn es eine Variable vom Typ TPoint wäre, könntest du das so machen:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| var
P: TPoint;
begin
P.x := 10;
P.y := 10;
SetCursoPos(P)
//oder kurz
SetCurosPos(Point(10, 10));
end; |
GoD_fire - Do 20.03.03 09:24
yo
thx
das hab isch mir schon gedacht aber ich war mir nicht sicher
icu GoD_fire
Terra23 - Fr 25.04.03 00:37
Bei
GetCursorPos braucht man aber dann die TPoint, habe ich jedenfalls damals so gelernt.
Quelltext
1:
2:
3:
4:
5:
6:
7:
| Var Punkt: TPoint;
TForm1.Timer1Timer(Sender: TObject);
begin
GetCursorPos(Punkt);
SetCursorPos(Punkt.X+10, Punkt.Y+10);
end; |
Das würde dann z.B. dafür sorgen, daß der Zeiger immer um 10 nach rechts und nach unten verschoben wird (wenn ich im Code nichts vergessen habe).
Grüße, Alex..
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 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!