Книга: Описание языка PascalABC.NET

Простейшие события

Рисование мышью в графическом окне

Данная программа осуществляет рисование мышью в графическом окне:

uses GraphABC;
procedure MouseDown(x,y,mb: integer);
begin
MoveTo(x,y);
end;
procedure MouseMove(x,y,mb: integer);
begin
if mb=1 then LineTo(x,y);
end;
begin
// Привязка обработчиков к событиям
OnMouseDown := MouseDown;
OnMouseMove := MouseMove
end.

Оглавление книги

Оглавление статьи/книги
Похожие страницы

Генерация: 1.309. Запросов К БД/Cache: 3 / 0
поделиться
Вверх Вниз