Page 5 - 6370
P. 5

Приклад  № 1.
                 ЗАСТОСУВАННЯ  ПОДІЙ onMOUSEUP, onMOUSEDOWN І
                    onDRAGOVER ДЛЯ ПОБУДОВИ ПРЯМОКУТНИКІВ ТА
                                     ЛАМАНИХ ЛІНІЙ.

               1.      В    розділі   interface   поруч    із   автоматично
               задекларованою  формою. Form2  дооголошують змінні sx
               і sy, які служитимуть початковими координатами курсору:

               var
                 Form2: TForm2;

                     sx, sy: integer;

               2. З допомогою інспектора об’єктів (рисунок 1) створюють
               процедуру  обробки  події    FormMouseDown    для  надання
               змінним  sx    і  sy    їх  фактичного  значення  в  момент
               натискання  правої клавіші мишки.
               implementation

               {$R *.dfm}
               procedure
               TForm2.FormMouseDown(Sender:TObject;Button
               :TMouseButton; Shift:TShiftState; X, Y:
               Integer);

               begin
                if (button=mbRight)  then

                 begin
                   sx:=X;

                   sy:=Y;
                  end;

                                             7
   1   2   3   4   5   6   7   8   9   10