Wie sieht mein Cursor aus?
Vor kurzem musste ich die Bildschirm-Cursor-Bild zu rendern
eine Bitmap. Dies ist wie Sie es tun.
var
HCursor: THandle;
beginnen
Das der aktuellen Cursor-Handle zu erhalten
HCursor: = Screen.Cursors[Ord(Screen.Cursor)];
Ziehen Sie das Symbol auf einer Leinwand
DrawIconEx (MyBitmap.Canvas.Handle,
XPos, Ypos, HCursor, 32, 32, 0, 0, DI_NORMAL);
Ende;
Finden Sie unter DrawIconEx in der Delphi-Hilfe für Kombinationen, die DI_NORMAL, wie DI_MASK oder DI_DEFAULTSIZE ersetzen kann
Wie sieht mein Cursor aus?
Wie sieht mein Cursor aus? : Mehreren tausend Tipps, um Ihr Leben einfacher machen.
Vor kurzem musste ich die Bildschirm-Cursor-Bild zu rendern
eine Bitmap. Dies ist wie Sie es tun.
var
HCursor: THandle;
beginnen
Das der aktuellen Cursor-Handle zu erhalten
HCursor: = Screen.Cursors[Ord(Screen.Cursor)];
Ziehen Sie das Symbol auf einer Leinwand
DrawIconEx (MyBitmap.Canvas.Handle,
XPos, Ypos, HCursor, 32, 32, 0, 0, DI_NORMAL);
Ende;
Finden Sie unter DrawIconEx in der Delphi-Hilfe für Kombinationen, die DI_NORMAL, wie DI_MASK oder DI_DEFAULTSIZE ersetzen kann
Wie sieht mein Cursor aus?
By Wiezutun
Wie sieht mein Cursor aus? : Mehreren tausend Tipps, um Ihr Leben einfacher machen.