Cursor durch einen selbstgemachten ersetzen

[Die Muhkuh]

Hi,


wie kann ich einen Cursor durch einen selbstgemachten ersetzen (in Delphi, nicht in Windows)? Und kann der Cursor auch im bmp-Format vorliegen?

[Luckie]

Wie in Delphi? Meinst du LoadCursor und SetCursor.

[Die Muhkuh]

Sorry,

vielleicht ein bisschen falsch ausgedrückt. Ich meine von meiner Form. Wenn man drüber fahrt soll mein Cursor geladen werden

[Jens Schumann]

Hallo,
such mal in der OH nach dem Begriff Cursors. Da gibt es sogar ein Beispiel.

Wenn ich mich nicht irre bringt Delphi irgendwo im Demo-Verzeichnis sogar ein Beispiel
mit.

[Die Muhkuh]

Hi Jens,

thx,

hab was gefunden. Mal sehen was sich damit anfangen lässt.

[Die Muhkuh]

Hi,

ich wollte es so machen wie es in der Hilfe steht. Man soll in der Resourcendatei den Cursor hinzufügen. Das wollte ich machen. Aber wenn ich den Cursor abspeichern will kommt:

---------------------------
Borland Bildeditor
---------------------------
Ressourcenname nicht gefunden.
---------------------------
OK
---------------------------


Was nu?

[Die Muhkuh]

Ok,

musste Delphi schließen, dann ging wieder.

[Die Muhkuh]

Hi,


hab alles nach einweisung gemacht.

Code:

Delphi-Quellcode:

const
  crMyCursor = 5;

[...]

procedure TForm.Create(Sender: TObject);
begin
  Screen.Cursors[crMyCursor] := LoadCursor(HInstance, 'B');
  Cursor := crMyCursor;
end;

Aber da passiert nix.

In .Res von dem Programm ist der Cursor mit dem Namen B drinne. aber es geht nicht. Es gibt keine Exception oder so. Der Cursor ist einfach der Alte.

[Jens Schumann]

Hallo,
zeig mal Deine Resourcendatei. Also die Datei mit der Endung .rc

Hinweis:
Eine Bitmap kann man nicht als Cursor verwenden.

[Die Muhkuh]

Zitat:

Zitat von Jens Schumann

Hallo,
zeig mal Deine Resourcendatei. Also die Datei mit der Endung .rc

Hinweis:
Eine Bitmap kann man nicht als Cursor verwenden.

ähm, du meinst du die mit .res oder? Eine .rc hab ich gar nicht.


Zum hinweiß:

Es ist ein Cursor und kein Bitmap.




Res-Datei im Anhang

[Jens Schumann]

Hallo Spider,
wahrscheinlich liegt es an Deiner Cursor-Resource. Mit Deiner hat es bei mir
auch nicht geklappt. Ich habe mir dann eine eigene Resource mit dem BildEditor
erstellt (mycursors.res). Damit funktioniert es. Siehe Anlage

[Mr Whoopee]

Hallo,
das funktioniert super. Nur wenn man in ein TMainMenu geht oder über
andere Komponenten, dann wird er wieder durch den Standardwindowscursor
ersetzt :(.

Weiß jemand Rat?


Whoopee

[jim_raynor]

Siehe TScreen.Cursor

[Mr Whoopee]

:wiejetzt:
Habe ich versucht - hat nichts gebracht. Vorhanden ist Deine Idee schon:

Delphi-Quellcode:

Screen.Cursors[crMyCursor] := LoadCursor(HInstance, 'MYCURSOR');
Screen.Cursor:= crMyCursor;
Cursor := crMyCursor;

Klappt irgendwie nicht.
Evtl. weiß ja Jemand noch Rat.

Mr Whoopee

[Die Muhkuh]

Hi Whoopee,


das Cursor := crMyCursor kannst du dir sparen ;).

[Mr Whoopee]

danke, aber ich bin ein idiot :wall:

einfach:
<komponente>.Cursor:=crMyCursor;

Fertig + geht : :mrgreen:

[malo]

Ich muss mich da auch mal einmischen *g*.

Wie erstellt man eine .res Datei für den Cursor? :wall:

[Edit] Hab grade mal in die OH geschaut und siehe da? Da steht was vom Bildeditor :wall: [/edit]