Page 34 - 6370

використання властивості Canvas слід долучити до розділу
uses модуль Forms в якому є описаним клас ТCanvas.

unit Equipments;

interface

uses Forms;
procedure figura1_show (sender:TObject);

implementation
procedure figura1_show
(sender:TObject);
begin

(sender as
TForm).Canvas.MoveTo(50,50);
(sender as
TForm).Canvas.lineTo(100,50);
(sender as
TForm).Canvas.lineTo(100,80);
(sender as
TForm).Canvas.lineTo(50,80);
(sender as TForm).Canvas.
lineTo(50,50);

end;
end.

4. У вікні форми Form2 встановлюють кнопку Button4,
надаючи її властивості сaption значення <встановити
обладнання> і подвійним клацанням відкривають
заготовлену підпрограму Button4Click.

5. До розділу коду вікна форми uses долучають назву
модуля Equipments.
36