Использование анимированных курсоров 3Delphi , ОС и Железо , Мышка и КурсорИспользование анимированных курсоров 3
Оформил: DeeCo {1.} procedure TForm1.FormCreate(Sender: TObject); begin Screen.Cursors[crMyCursor] := LoadCursorFromFile('c:\mystuff\mycursor.ani'); Cursor := crMyCursor; end; {*****************************************************************} {2.} { by Blodgett} Const CURSOR_HOURGLASS = 1; {...} procedure TForm1.LoadCursors; var h : THandle; begin if FileExists('..\Images\YourAnimagedCursor.ani') then begin h := LoadImage(0, '..\Images\YourAnimatedCursor.ani', IMAGE_CURSOR, 0, 0, LR_DEFAULTSIZE or LR_LOADFROMFILE); if h <> 0 then Screen.Cursors[1] := h; end; end; procedure TForm1.BitBtn1Click(Sender: TObject); var FCurrentCursor: Integer; begin //1st - Load Cursors Information LoadCursors; //2nd - Set FCurrentCursor variable // to current screen cursor. FCurrentCursor := Screen.Cursor; //3rd - Set Screen.Cursor to your CONST Value. // this is your animated cursor. Screen.Cursor := CURSOR_HOURGLASS; //4th - Do something ... sleep(2000); //5th - Set Screen.Cursor to original cursor. Screen.Cursor := FCurrentCursor; end; В статье описывается использование анимированных курсоров в программировании на языке Delphi, с помощью процедур LoadCursorFromFile и LoadImage, а также примеры их применения в коде. Комментарии и вопросы:: 2024-04-24 22:50:50.23692 :: re:Использование анимированных курсоров 3пользователь: Андрей. Статья предоставляет полный обзор использования анимированных курсоров в Delphi и FreePascal. Кодные фрагменты, представленные в статье, демонстрируют, как загружать и устанавливать анимированный курсор, а также переключаться между различными курсорами. Использование функций `LoadCursorFromFile` и `LoadImage` объясняется четко, что делает это легко для разработчиков внедрять анимированные курсоры в свои приложения. Статья также предоставляет практический пример использования анимированных курсоров в событии `OnCreate` формы и в ответ на клик кнопки. В целом, эта статья является ценным ресурсом для любого, кто хочет добавить визуальный интерес и интерактивность к своим приложениям Delphi или FreePascal. Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Мышка и Курсор ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |