چطور اشاره گر ماوس رو عوض کنم؟

[hex161]

سلام.
میخوام اشاره گر ماوس رو تو برنامم عوض کنم.
البته نه از طریق مشخصات فرم . چون تو یه دستگاه دیگه برمیگرده به حالت پیشفرض.
ممنون.

[MNosouhi]

const crMyCursor = 1;
............
procedure TForm1.Button1Click(Sender: TObject);
var c:array[0..144] of char;
begin
if OpenDialog1.Execute then
begin
StrPCopy(c,OpenDialog1.FileName);
// Load the cursor. Needs to be done only once
Screen.Cursors[1] :=LoadCursorFromFile(c);
// Use the cursor with this form
Cursor := crMyCursor;
end;
end;

[babak869]

از کد زیر هم میتونی استفاده کنی :


Button1.Cursor:=crHandPoint;

موفق باشید