Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.04;
Скачать: CL | DM;

Вниз

Анимированный курсор   Найти похожие ветки 

 
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 - пашет

???



Страницы: 1 вся ветка

Текущий архив: 2002.02.04;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.01 c
1-8896
solsoft
2002-01-16 11:45
2002.02.04
Формат заголовок архиватора IMP


1-8833
Lizard
2002-01-20 15:04
2002.02.04
Как отключить таймер (Timer1) ?


3-8800
Fareader
2002-01-03 16:11
2002.02.04
Как сделать прогу с IBX пошустрее?


1-8943
Mitrofan
2002-01-18 11:34
2002.02.04
Как програмно проскролировать RichEdit ?


3-8767
Fareader
2002-01-03 15:47
2002.02.04
Тормозит программа под IB 6