Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];




Вниз

Анимированный курсор 


swr   (2001-12-06 09:41) [0]

Как использовать анимированный курсор?
ф-я LoadImage() в NT4 не поддерживается.



Керик   (2001-12-08 04:58) [1]

Это помогает, но надо иметь файл с
анимированным курсором, а не запихивать его
в exe-шник. Я делаю так:
Screen.Cursors[0] := LoadCursorFromFile("путь к файлу");
Screen.Cursor := 0;



swr   (2001-12-08 10:59) [2]

procedure TForm1.Button1Click(Sender: TObject);
var
hc: HCURSOR;
begin
hc:= LoadCursorFromFileA(PChar("H:\Test\AniCur\globe.ani"));
// ShowMessage(IntToStr(hc));
Screen.Cursors[1]:= hc;
Cursor:= Screen.Cursors[1];
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Cursor:= crHandPoint;
end;

Button1Click - не пашет
Button2Click - пашет

???




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.041 c
1-8862            Eraser                2002-01-21 12:34  2002.02.04  
Процедура Delay


1-8886            Dmitriy_R             2002-01-15 13:51  2002.02.04  
Генерация случайного числа в диапазоне 30......90


1-8903            MystiX                2002-01-15 17:55  2002.02.04  
Help!!!


1-8847            kserg@ukr.net         2002-01-21 10:24  2002.02.04  
Можно ли в StringGrid-е выравнять текст ячейки?


7-9008            Vitaliy Jungle        2001-10-13 05:42  2002.02.04  
Гребаный MSDOS