Änderung des Cursors

[Orpheus]

also bei mir klappt das noch nicht...

das Screen.Cursor klappt ja nur bei vorgefertigten Cursoren. Ich wollte ja meinen selbstgemachten haben.

Bei eurem Vorschlag

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Cursor:=Cursor.Create(Cursor, 'C2.Cur');
end;

kommen bei mir folgende Fehlermeldungen:

[Fehler] Unit1.pas(30): Record, Objekt oder Klassentyp erforderlich
[Fehler] Unit1.pas(30): Inkompatible Typen: 'TComponent' und 'TCursor'
[Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

Wenn ich schreibe statt Cursor.Create TCusor.Creat schreibe, also so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Cursor:=TCursor.Create(Cursor, 'C2.Cur');
end;

dann kommt:

[Fehler] Unit1.pas(30): Objekt oder Klassentyp erforderlich