Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Курсор [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]

мышинный или клавиатурный?


Наверх

Титульная страница Поиск, карта сайта Написать письмо