Page 38 - 6370
P. 38

13. На вікні форми  вистваляють  зверху - донизу додаткові
               компоненти:  SpinEdit1,  SpinEdit2,  SpinEdit3,  SpinEdit4.
               Вони  призначені  для  візуалізації  координат  курсора  під-
               час вибору розміщення точки (x1,y1)  і точки (x2,y2).

               14. Доопрацьовують існуючу  процедуру FormMouseDown,
               прописуючи  у ній додаткові кодові рядки:

               if (button=mbmiddle) then
                    begin

                     x1:=X;
                     y1:=Y;

                     SpinEdit1.Value:=x1;
                     SpinEdit2.Value:=y1;

                    end;
                if((ssctrlinshift)and(button=mbrigh))
               then
                     begin
                     x2:=X;    SpinEdit3.Value:=x2;

                     y2:=Y;    spinedit4.Value:=y2;
                     end;

               15. Запускають прикладну програму. Натискаючи  середню
               клавішу  мишки  у  потрібному  місці  вікна  застосунку
               отримують  значення  x1  у  полі  SpinEdit1  і    y1  у  полі
               SpinEdit2. Натискаючи  праву клавішу мишки і одночасно
               утримуючи  клавішу  Ctrl  у  потрібних  місцях  вікна  форми
               мають значення x2 у полі SpinEdit3 і  y2 у полі SpinEdit4 .

               Зауваження:  подія  OnMouseDown  на  відміну  від
               OnMouseup частенько даватиме збій, оскільки відпускання
               клавіші  є  однозначною  подією,  а  натискання  доволі
                                             40
   33   34   35   36   37   38   39   40   41   42   43