Eigener Mauszeiger, onmousemove beim Button

Delphi-Noobie · Beiträge: 31

Hi!

Wie kann ich einstellen, dass sich der Mauszeiger ändert, wenn ich auf einen Button mit der Maus gehe (Onmousemove), er aber noch während ich auf dem Button bin wechselt. Wenn ich bei Onmousemove bei Form1
den Quellcode schreibe:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

var h: THandle;
begin
  h:=LoadImage(0,'Cursorname.ani',
IMAGE_CURSOR,0,0,LR_DEFAULTSIZE or LR_LOADFROMFILE);
    Screen.Cursors[1]:=h;
    Form1.Cursor:=1;
end;

dann klappt es auch, jedoch auf einen Button kommt wieder der normale standart Windowscursor

Kennt da einer ne Lösung?

Moderiert von Tino: Code- durch Delphi-Tags ersetzt.

_________________
Was du heute kannst verschieben, das besorge lieber morgen.

Michael Stenzel · Beiträge: 133 D3 Prof, D7 PE

Hallo.

Du mußt beim Button auch den Cursoreigenschaft einstellen.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

var h: THandle; 
begin 
  h:=LoadImage(0,'Cursorname.ani', 
IMAGE_CURSOR,0,0,LR_DEFAULTSIZE or LR_LOADFROMFILE); 
    Screen.Cursors[1]:=h; 
    Form1.Cursor:=1;
    Button1.Cursor := 1; // <------
end;

Gruß
Michael.

Delphi-Noobie · Beiträge: 31

cool Danke @ Michael jetzt funzt es!

_________________
Was du heute kannst verschieben, das besorge lieber morgen.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme