Zitat von
Grumble:
Delphi-Quellcode:
implementation
{$R *.dfm
$R zoomin.res
$R zoomout.res}
Neue Schreibweise oder Tippfehler ? Normalerweise macht man es so:
Delphi-Quellcode:
{$R *.dfm}
{$R zoomin.res}
{$R zoomout.res}
Zitat von
Grumble:
und es ist wieder da... nunja komischerweise auch die neuen mauszeiger
Ja, denn du lädst die Cursor aus der .cur-Datei und nicht aus der in dienem Programm eingebundenen Resource.
Zitat von
Grumble:
Screen.Cursors[crzin] := LoadCursorFromFile('zoomin.cur');
Um die Cursor'e aus der Resource zu laden:
Delphi-Quellcode:
const
crMyCursor = 5;
procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.Cursors[crMyCursor] := LoadCursor(HInstance, 'NewCursor');
Cursor := crMyCursor;
end;