20 lines
362 B
ObjectPascal
20 lines
362 B
ObjectPascal
// Иллюстрация обработки событий мыши
|
|
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.
|
|
|