Delphi de cursore nasil ozel sekiller atayabilirim?
Yapmak istedigim ekran boyutlarinda + seklinde bir cursor.
Normalde böyle:
Label1.Cursor := crCross;
Form1.Cursor := crHourGlass;
Form1.Cursor := crDefault;
(http://z.about.com/d/delphi/1/0/3/4/scrcurs.gif)
Fakat kendi çizdiğiniz cursoru gostermek istiyorsanız res dosyası olarak programa ilave edip
{$R Cursors.res}
Screen.Cursors[crCross] := LoadCursor(hInstance, 'CROSS');
gibi yapmalısınız
ama anladığım kadarıyla bu oyunlarda yada çizim programlarında olan cursor şeklini yapmak asıl amaç, öyleyse çok daha basit yolu var.
Brush.Style:=bsClear;
Canvas.Pen.Color:=clBlack;
Canvas.Pen.Width:=10;
X:=Mouse.CursorPos.X;
Y:=Mouse.CursorPos.Y;
Canvas.MoveTo(0,Y);
Canvas.LineTo(Form1.Width,Y);
Canvas.MoveTo(X,0);
Canvas.LineTo(X,Form1.Height);
gibi