![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Курсор [D6, Win95/98]
dimon1979 © (2004-09-02 11:37:00)Добрый день! Как можно сделать мигающий курсор в виде чёрного квадратика(чёрный на белый и наоборот)?
Rem (2004-09-03 08:15:00) [1]Как использовать анимированный курсор в своем приложении?
procedure TForm1.FormCreate(Sender: TObject);
var
h: THandle;
begin
h := LoadImage( 0, 'C:\Animation.ani', IMAGE_CURSOR,
0, 0, LR_DEFAULTSIZE or LR_LOADFROMFILE );
if h = 0 then
ShowMessage( 'Курсор не загружен' )
else
begin
Screen.Cursors[1] := h;
Form1.Cursor := 1;
end;
end;
antonn (2004-09-02 13:14:00) [2]создать ani и грузить его.
dimon1979 (2004-09-02 12:12:00) [3]Мышинный!
clickmaker (2004-09-02 11:56:00) [4]мышинный или клавиатурный?