обновление в блоге - Управление мышью

[Pblog]

Управление мышью

pblog.ruВсе наверное хотят использовать свои курсоры. И большинству нужны не просто курсоры, а анимированные курсоры. Вот что надо сделать для загрузки курсора:
implementation
const
crMyCursor = 1;
procedure TForm1.FormCreate(Sender: TObject);
begin
// Это единственный способ загрузки который я знаю
Screen.Cursors[crMyCursor] := LoadCursorFromFile(’C:\Курсор.ani’) ;
// Устанавливаем курсор на форму
Cursor := crMyCursor;
end;
Теперь перейдём к быстрой настройки мыши. Вот как можно поменять кнопки мыши между собой:
(more…)