PDA

View Full Version : گذاشتن cursor برای اشیا داخل برنامه


sobhangh
جمعه 05 تیر 1388, 14:35 عصر
من می خواهم که کارسور اشیا داخل برنامه را عوض کنم ( نه پیش فرض های دلفی) البته با خود صفحه و screen مشکلی ندارم اما وقتی نشانگر موس روی اشیا می ره دوباره کارسور به همون شکل اولی در می یاد.
نمی دونم باید چیکار کنم. لطفا اگر می دانید کمکم کنید.
hojjatcroos
جمعه 05 تیر 1388, 17:45 عصر
سلام دوست عزیز.می تونید از قطعه کد زیر استفاده کنید(البته برای مثال).

procedure TForm1.Button1Click(Sender: TObject);
const
MyCursor = 1;
begin
Screen.Cursors[MyCursor] := LoadCursorFromFile('c:\windows\cursors\horse.ani') ;
Button2.Cursor := MyCursor
end;