Клуб программистов

Новые статьи:

Programming articles

Создание сайтов на шаблонах

Множество вариантов работы с графикой на канве

Шифруем файл с помощью другого файла

Перехват API функций - Основы

Как сделать действительно хороший сайт

Создание почтового клиента в Delphi 7

Применение паскаля для решения геометрических задач

Управление windows с помощью Delphi

Создание wap сайта

Операционная система unix, термины и понятия

SQL враг или друг

Возникновение и первая редакция ОС UNIX

Оптимизация проекта в Delphi

Ресурсы, зачем нужны ресурсы

Термины программистов 20 века

Советы по созданию собственного сайта с нуля

Шифруем файл с помощью пароля

Фракталы - геометрия природы

Crypt - Delphi программа для шифрования

Рассылка, зачем она нужна и как ее организовать?

Учебник по C++ для начинающих программистов

Уроки для изучения ассемблера

Загадочный тип PCHAR

Средства по созданию сайтов

Операторы преобразования классов is и as

Borland Developer studio 2006. Всё в одном

Создание базы данных в Delphi, без сторонних БД


Software engineering articles

Все наверное хотят использовать свои курсоры. И большинству нужны не просто курсоры, а анимированные курсоры. Вот что надо сделать для загрузки курсора:

implementation

const
  crMyCursor = 1;

//…

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Это единственный способ загрузки который я знаю
  Screen.Cursors[crMyCursor] :=  LoadCursorFromFile('C:\Курсор.ani');
  // Устанавливаем курсор на форму
  Cursor := crMyCursor;
end;

Теперь перейдём к быстрой настройки мыши. Вот как можно поменять кнопки мыши между собой:

SwapMouseButton(true); // Поменять
SwapMouseButton(false); // Поменять обратно

Теперь кинем на форму таймер и напишем там:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  position: TPoint;
begin
  GetCursorPos(position);
  Caption:=('(' + IntToStr(position.X) + ' ,' + IntToStr(position.Y) + ')');
end;

То что мы написали выводит в заголовке формы тикущие координаты курсора. Position.X – координата X;  Position.Y – координата Y типа integer.

Перемещать мышь можно с помощью процедуры mouse_event(MOUSEEVENTF_MOVE, X, Y, 0, 0); где X – число, на которое сместиться курсор, в горизонтальной плоскости, из исходного положения. Y – число, на которое сместиться курсор, в вертикальной плоскости, из исходного положения.