Einzelnen Beitrag anzeigen

Benutzerbild von turboPASCAL
turboPASCAL

Registriert seit: 8. Mai 2005
Ort: Sondershausen
4.274 Beiträge
 
Delphi 6 Personal
 
#8

Re: Cursor aus BITMAP-Ressourcenname laden

  Alt 26. Apr 2006, 20:53
Zitat:
Cursor aus BITMAP-Ressourcenname laden
So ?

Delphi-Quellcode:
procedure TfrmInfo.FormCreate(Sender: TObject);
var
  Cur: HCursor;
begin
  Cur := LoadImage(hInstance, MAKEINTRESOURCE(1), IMAGE_CURSOR, 0, 0, 0);
  Screen.Cursors[1] := Cur;
  DeleteObject(Cur);

  Cursor := 1;

  Button1.Cursor := Cursor;
  StaticText1.Cursor := Cursor;
  //...
end;
Aller dings ist die Resource kein Bitmap sondern ein Cursor....

oder soll es dyn. erstellt werden ?
Matti
Meine Software-Projekte - Homepage - Grüße vom Rüsselmops -Mops Mopser
  Mit Zitat antworten Zitat