Как вставить свой курсор из внешнего файла?

Материал из 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