Использование анимированных курсоров 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; Статья Использование анимированных курсоров 3 раздела ОС и Железо Мышка и Курсор может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Мышка и Курсор ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |