Cursor

Başlatan z, 22 Kasım 2008, 22:03:19

z

Delphi de cursore nasil ozel sekiller atayabilirim?

Yapmak istedigim ekran boyutlarinda + seklinde bir cursor.
Bana e^st de diyebilirsiniz.   www.cncdesigner.com

SpeedyX

Normalde böyle:

Label1.Cursor := crCross;
Form1.Cursor := crHourGlass;
Form1.Cursor := crDefault;



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