Простейшие события
Рисование мышью в графическом окне
Данная программа осуществляет рисование мышью в графическом окне:
>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.
Перемещение окна с помощью клавиатуры
Данная программа осуществляет перемещение графического окна с помощью клавиатуры:
>uses GraphABC;
>
>procedure KeyDown(Key: integer);
>begin
> case Key of
>VK_Left: Window.Left := Window.Left - 2;
>VK_Right: Window.Left := Window.Left + 2;
>VK_Up: Window.Top := Window.Top - 2;
>VK_Down: Window.Top := Window.Top + 2;
> end;
>end;
>
>begin
>// Привязка обработчиков к событиям
>OnKeyDown := KeyDown;
>end.
Пример использования таймера
Данная программа выводит 1 каждые 100 миллисекунд в течение 3 секунд:
>uses Timers;
>procedure TimerProc;
>begin
>write(1);
>end;
>
>begin
>var t := new Timer(100,TimerProc);
>t.Start;
>Sleep(3000);
>end.
Вызов Sleep здесь обязателен, иначе программа после создания таймера сразу закончится, и обработчик таймера ни разу не сработает.