Как вставить свой курсор из внешнего файла? |
Previous Top Next |
Используя процедуру LoadCursorFromFile
Code: |
var h: hcursor; begin h := LoadCursorFromFile('D:\mc.cur'); Screen.Cursors[1] := h; Form1.Cursor := 1; end; |
©Drkb::02322
Code: |
var h: THandle; begin h := LoadImage(0, 'c:\Cursor.cur', IMAGE_CURSOR, 0, 0, LR_DEFAULTSIZE or LR_LOADFROMFILE); if h = 0 then ShowMessage('Cursor not loaded!!!') else begin Screen.Cursors[1] := h; Form1.Cursor := 1; end; end; |
©Drkb::02323
Этот пример позволяет также использовать анимированные курсоры (*.ani)!
Вот кусок кода для загрузки анимированного курсора, который можно вставить в обработку события активизации формы :
Code: |
var h: THandle; name: array[0..255] of char; begin StrPCopy(name, 'Animcurs.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 else Screen.Cursor := crDefault; end; |
©Drkb::02324
Взято с сайта http://blackman.wp-club.net/