Entwickler-Ecke :: Thema anzeigen - Eigener Mauszeiger, onmousemove beim Button

Delphi-Noobie - Sa 15.11.03 21:31
Titel: Eigener Mauszeiger, onmousemove beim Button

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:

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.

Michael Stenzel - Mo 17.11.03 01:06

Hallo.

Du mußt beim Button auch den Cursoreigenschaft einstellen.

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.

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!