Как добавить анимированный курсор
Как добавить анимированный курсор
Как добавить анимированный курсор var h : THandle; name: array[0..255] of char; begin StrPCopy(name,'Bbreathe.ani'); h:=LoadImage(0,name,IMAGE_CURSOR, 0, 0, LR_DEFAULTSIZE or LR_LOADFROMFILE); if h<>0 then begin Screen.Cursors[1]:=h; Screen.Cursor:=1; end; end; Теперь его можно использовать для отдельного компонента формы, например: procedure TFMain.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if Screen.Cursors[1]<>crDefault then begin if Screen.Cursor=crDefault then Screen.Cursor:=1; end; end;
