Как вставить свой курсор из внешнего файла?
Материал из DRKB
Как вставить свой курсор из внешнего файла?[править | править код]
Используя процедуру LoadCursorFromFile
var
h: hcursor;
begin
h := LoadCursorFromFile('D:\mc.cur');
Screen.Cursors[1] := h;
Form1.Cursor := 1;
end;
ID: 02322
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;
ID: 02323
Этот пример позволяет также использовать анимированные курсоры (*.ani)!
Вот кусок кода для загрузки анимированного курсора, который можно вставить в обработку события активизации формы :
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;
Source: Взято с сайта http://blackman.wp-club.net/
ID: 02324