Page 35 - 6370
P. 35

6.  В  тіло  підпрограми  Button4Click  вставляють  назву
               процедури  figura1_show  надаючи  її  параметру  sender
               фактичного значення – form2.

                procedure
               TForm2.Button4Click(Sender:TObject);
               begin

                figura1_show (form2);
               end;

               7.Запускають  прикладну  програму  і  клацають  по  кнопці
               <сітка колон> і <встановити обладнання> . Спостерігають
               отримане зображення (рисунок 23).





























                Рисунок  23  -   Встановлений прямокутник (обладнання).

               7.1  Якщо  в  застосунку  спочатку  клацнути  по  кнопці
               <встановити  обладнання>,  а  опісля    по  кнопці    <сітка


                                             37
   30   31   32   33   34   35   36   37   38   39   40