Eigener Mauscursor

[Tzuxy]

Hallo,
mein Problem sieht wie folgt aus.
Ich bekomm es einfach nicht hin, dass Delphi meinen Mauszeiger einbindet.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
{mouse.rc}

procedure TForm1.FormCreate(Sender: TObject);
const
 crMyCursor = 5;
begin
Screen.Cursors[crMyCursor] := LoadCursor(HInstance, 'NewCursor'); 
{oder}
Screen.Cursors[crMyCursor] := LoadCursorFromFile('mouse.cur');

Cursor := crMyCursor; 

Form1.Cursor := crMyCursor;
Button1.Cursor := crMyCursor;

end;

end.

Ich habe meinen Mauszeiger unter mouse.rc gespeichert und mit SHift+F11 eingebunden. Aber es klappt nicht.

[SirThornberry]

wie jetzt? du hast den Mousecursor unter dem Dateinamen mouse.rc gespeichert? Wenn ja dann ist das total falsch. Du musst eine Ressourcendatei erstellen und da den mauscursor einbinden. Und dann kannst du über den vergebenen Ressourcennamen den Cursor laden

[Tzuxy]

Wie mach ich das denn nun jetzt? Im Forum hab ich dazu nichts gefunden.
Wie soll ich denn den Cursor einbinden???

[Die Muhkuh]

Hi,

schreib mal

Delphi-Quellcode:

Screen.Cursor := crMyCursor;

[Niko]

Hi,

statt

Delphi-Quellcode:

{mouse.rc}

sollte es

Delphi-Quellcode:

{$R mouse.rc}

heißen.

Und bei

Delphi-Quellcode:

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

musst du statt NewCursor den Namen einsetzen, den du deinem Cursor gegeben hast.