Cursor auf Canvas zeichnen

Jann1k · Verfasst: Mo 05.11.07 15:24

Hi,

ich bin dabei ein Tutorial für ein Spiel zu basteln, hierbei fände ich es ganz schön, wenn ich Mauszeiger auf eine Canvas malen könnte. Natürlich könnte ich einen Screenshot machen, den Mauszeiger ausschneiden, als Bitmap speichern und mit draw auf die Canvas malen, aber kann ich nicht direkt mit Delphi auf das Cursorbild zugreifen und wenn ja: wie mach ich das?

Danke für jede Hilfe

MfG

Basti

_frank_ · Verfasst: Di 06.11.07 05:04

also ich hab das beim DFMedit so realisiert:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

var icon:TIcon;
begin
  icon:=TIcon.create;
  icon.Handle := Screen.Cursors[crDefault];
  canvas.Draw(0,0,icon);
  icon.free;
end;

wenn du den CursorNamen (cr*) als String vorliegen hast ist StringToCursor ganz nützlich

HTH Frank

_________________
EB FE (die wahrscheinlich kürzeste Endlosschleife der Welt

)
BA 01 00 00 00 52 EB 09 BB 4D 11 86 7C FF D3 EB 0D E8 F2 FF FF FF 63 68 61 72 6D 61 70 00 C3

Jann1k · Verfasst: Mi 07.11.07 22:07

Dankeschön, das funktioniert perfekt

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme