Einzelnen Beitrag anzeigen

k4ni

Registriert seit: 17. Jul 2007
Ort: Ulm
258 Beiträge
 
Delphi 7 Enterprise
 
#1

Cursor aus resource laden

  Alt 16. Mai 2008, 20:50
Hallo,

Ich hab schon ein paar themen gefunden, aber keine davon haben mir geholfen.
Ich habe 2 cursor in meiner .RES datei.

Hier erstmal die .rc datei:
Code:
1 CURSOR "Cursor 1.cur"
2 CURSOR "Cursor 2.cur"
Wieso geht das dann nicht: ?
Delphi-Quellcode:
var
  Form1: TForm1;

implementation
const
  cursors = 5;
{$R *.dfm}
{$R cursors.res}
procedure TForm1.FormCreate(Sender: TObject);
begin
  Screen.Cursors[cursors] := LoadCursor(HInstance, 'CURSOR');
  Cursor := cursors;
end;
end.
  Mit Zitat antworten Zitat