Änderung des Cursors

Orpheus · 24. April 2007, 17:35

Hi Leute!

Ich hab da ein Problem. Ich möchte, sobald ich mit der Maus über ein Label gehe, dort der Cursor ein anders Symbol zeigt. Die Eigenschaft label.cursor kenn ich. Ich habe jetzt mithilfe des Bildeditors ein neues Cursoricon gemahlt. Jetzt möchte ich nur wissen, wie ich den Programmtext schreiben muss, damit der Mauszeiger meinen Cursor annimmt.

einfach mit label1.cursur:=Cursor1; geht das nicht -.-

SoMeGuY · 24. April 2007, 20:21

Label.Cursor funktioniert.

Orpheus · 27. April 2007, 16:01

ja stimmt schon. Generell funktionier Label.cursor. Mein prob ist jetzt nur, dass ich nicht weiß, wie ich dem sage, dass die Maus mein eigen gestaltetes Mausicon annehmen soll.
Ich hab das Bild, dass ich mit Hilfe des Bildeditors von Delphi gemacht hab, in den gleichen Ordner, wie das Programm gespeichert. Das Ding heißt Cursor1.cur (sehr innovativ, ich weiß^^).
Ich habe es auf zwei Weisen ausprobiert:
Label1.cursur:=Cursor1.cur;
und
Label1.cursor:=Cursor1;

beides funzt nicht

SoMeGuY · 27. April 2007, 17:47

Ok, wir kommen dem ein wenig näher. Du gibts dem einfach den (unvollständigen Pfad zu einer Datei auf der Festplatte. In der Delphi-Hilfe steht aber folgendes:

Specifies the image used to represent the mouse pointer when it passes into the region covered by the control.
Class
TControl

Syntax

[Delphi] property Cursor: TCursor read FCursor write SetCursor;

Description
Change the value of Cursor to provide feedback to the user when the mouse pointer enters the control. The value of Cursor is the index of the cursor in the list of cursors maintained by the global variable, Screen. In addition to the built-in cursors provided by TScreen, applications can add custom cursors to the list.

Du brauchst also ein "Objekt" vom Typ TCursor, wobei das nur ein Handle auf eine Resource ist (den du z.B. mit LoadIcon() oder LoadImage() bekommst)

Orpheus · 29. April 2007, 16:06

sorry, bin grad nicht auf der Höhe meiner geistigen Fähigkeiten. Soll ich in den Quellcode dann so schreiben?

Label1.cursor:=loadimage(Cursor1.cur);

SoMeGuY · 29. April 2007, 18:57

Nein, LoadImage hat mehrere Parameter. Es gibt, hab ich grad gesehen, noch eine einfachere Funktion.

Quellcode

Label1.cursor:=loadimage('Cursor1.cur');

Bei LoadImage() müsste der Aufruf wohl irgendwie so aussehen:

Quellcode

LoadImage(0,'Cursor1.cur',IMAGE_CURSOR,0,0,LR_DEFAULTSIZE or LR_LOADFROMFILE);

Orpheus · 2. Mai 2007, 19:57

mmmhhh. Also ich hab jetzt deinen ersten Vorschlag probiert, dann kommt beim Kompilieren die Fehlermeldung: Inkompatible Typen "Cadinal" und "String".

Deinen zweiten Vorschlag konnt ich mir bis jetzt nicht merken, (hab Delphi nicht auf meinem I-net Pc^^). Werds mit gleich kopieren und mal versuchen, wenn ich wieder zu Hause bin :wink:

SoMeGuY · 2. Mai 2007, 20:21

Sorry da bin ich durcheinandergekommen, die erste Zeile müsste so lauten:

Quellcode

Label1.cursor:=LoadCursorFromFile('Cursor1.cur');

Änderung des Cursors

Änderung des Cursors

Quellcode

Quellcode

Quellcode

Teilen

Benutzer online 1

Tags