Cursor verändern

Hi Leute.

Kann mir jemand helfen...ich mach jetzt schon Stunden an dem Teil rum unds will einfach nicht
Der folgende Code sollte eigentlich den Standartcursor leicht verändern, indem er n farbigen Kasten dazu macht. Nur irgendwie funktioniert das nicht. Es wird an der Stelle an der ich den Kasten einblenden will eher was gelöscht und der Standartcursor hat dann n Loch...
Hier der Code:

TIconInfo myIcon;
    if (GetIconInfo(Screen->Cursors[crDefault],&myIcon))
    {
      Graphics::TBitmap *myColorBitmap = new Graphics::TBitmap();
      myColorBitmap->Handle = myIcon.hbmColor;
      myColorBitmap->Monochrome = false;
      myColorBitmap->Canvas->Brush->Color = clOwnLay;
      myColorBitmap->Canvas->Pen->Color = clBlack;
      myColorBitmap->Canvas->Rectangle(10,10,30,25);
      Image1->Picture->Bitmap = myColorBitmap;

      Graphics::TBitmap *myColorBitmap2 = new Graphics::TBitmap();
      myColorBitmap2->Handle = myIcon.hbmMask ;
      myColorBitmap2->Canvas->Brush->Color = clBlack;
      myColorBitmap2->Canvas->Pen->Color = clBlack;
      myColorBitmap2->Canvas->Rectangle(10,10,30,25);

      HICON  myHIcon;
      DestroyIcon( myHIcon);
      myHIcon = CreateIconIndirect(&myIcon);
      Screen->Cursors[crUpArrow] = myHIcon;
   }

Und wenn noch jamend weiss wie ich n eigenen Cursor machen kann also z.B. crOwnCursor wär ich auch sehr dankbar

mfg Jens

kpeter

Hallo,
Hier und da gibts was zum Thema.

ed: Link ergänzt

mfg
kpeter

Hi kpeter.
Danke für deinen Link.
Leider hab ich es immer noch nicht hinbekommen.
Es kann doch nicht sein, dass Cursor nur schwarz-weiß sind oder ?
Aber ich bekomm einfach kein farbigen Cursor hin...

Hat noch jemand einen Tipp ?

kpeter

jensiboy schrieb:

Es kann doch nicht sein, dass Cursor nur schwarz-weiß sind oder ?
Aber ich bekomm einfach kein farbigen Cursor hin...

In meinem ersten Link ist doch ein prima Beispiel? Musst es halt nur anpassen.
Und der Cursor ist doch eigentlich ein Icon...