2015-12-28 14:25:15 +03:00
|
|
|
// Иллюстрация обработки событий мыши
|
2015-05-14 22:35:07 +03:00
|
|
|
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
|
2015-12-28 14:25:15 +03:00
|
|
|
// Привязка обработчиков к событиям
|
2015-05-14 22:35:07 +03:00
|
|
|
OnMouseDown := MouseDown;
|
|
|
|
|
OnMouseMove := MouseMove
|
|
|
|
|
end.
|
|
|
|
|
|
