Логин: Пароль:    Регистрация Всеми возможностями сайта можно пользоваться
только после авторизации.
   Забыли пароль?

Поиск
L



Статистика
u
Пользователи онлайн: нет
Гостей онлайн: 2
Всего онлайн: 2
Зарегистрировано юзеров: 7024
Комментариев на сайте: 656
Новый юзер: Alvinbag



Последние комментарии
c
Paulineodods прокомментировал "Урок 53 - Потоки в Delphi, (часть 1/3)":
Всем добрый день Заказывала вот такую модель смартфона на сайте https://sale-aliexpress.ru . Продавец проявил инициативу и сам отправил с помощью DHL потом еще у DHL какой то сбой прошел . так продавец еще интересовался отписывался получила я или нет. В придачу положил рыбку для наушников (чтобы провода не запутывались))) и стилус. Короче мне повезло с продавцом и покупкой. Очень [url=https://sale-aliexpress.ru] рекомендую данный сайт .
YuristFom прокомментировал "Урок 53 - Потоки в Delphi, (часть 1/3)":
[b]ЮристЪ онлайн.[/b] Наша юридическая компания [b]"ЮристЪ"[/b] профессионально занимается разрешением всех юридических вопросов на протяжении многих лет. Отличное знание российского законодательства и широкая юридическая практика позволяют нашим юристам и адвокатам добиться положительного разрешения дела даже в самых сложных случаях. Наш сайт: http://jurs.info/g/ Юридическая консультация 24 на 7 ежедневно. Телефон указан на сайте. [url=jurs.info/g]Получить юридическую консультацию прямо сейчас![/url]

Урок 23 - Функции для работы с мышью

  В этом уроке изучим функции для работы с мышью.

   Итак, начнём! Вытащим на форму 5 кнопок и зададим свойства Caption: "Переместить курсор", "Скрыть курсор", "Показать курсор", "Поменять кнопки", "Вернуть кнопки". Вы наверно догадались о чем сейчас пойдет речь.

   Первая наша функция: SetCursorPos(x, y: integer), перемешает курсор в указанные координаты. Сразу же создадим обработчик события первой кнопки Button1Click и напишем вот такой код:

procedure TForm1.Button1Click(Sender: TObject);
begin
	SetCursorPos(100, 200);
end;
   При клике на кнопку курсор переместится в координаты X - 100 пикселей, Y - 200 пикселей.

   Следующая функция ShowCursor(bShow: longbool), скрывает курсор с параметром False и показывает его с параметром True. Также создадим событие второй и третьей кнопки.
procedure TForm1.Button2Click(Sender: TObject);
begin
	ShowCursor(False);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
	ShowCursor(True);
end;
   При нажатии на вторую кнопку курсор исчезает, а при нажатии на третью появляется.
   Ну и наконец последняя функция SwapMouseButton(bShow: longbool), менять местами кнопки мыши (левую на правую и наоборот), Создадим 2 обработчика событий 4 и 3 кнопки
procedure TForm1.Button4Click(Sender: TObject);
begin
	SwapMouseButton(False);
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
	SwapMouseButton(True);
end;
   При нажатии на 4 кнопку происходит смена кнопок. ВАЖНО: если не вернуть обратно то при завершении работы программы все настройки сохранятся.

Удачи!
Встретимся в следующем уроке!


Источник: www.thedelphi.ru
Автор: Савельев Александр
Опубликовано: 13 Апреля 2013
Просмотров: 13276

Урок 22 - Принцип работы с файлами Урок 24 - Изучаем компонент PaintBox

Зарегистрируйтесь или авторизуйтесь, чтобы добавлять комментарии.



аватар Добавил(а): pronin106 [Новичок] Дата: 2017-05-26
Урок интересный, но только где это может пригодится?)))




аватар Добавил: baxodir [Новичок] Дата: 2017-06-12
Но Это мало можно ещё больше