Введение в технологию программирования. Ч.1. Среда объектно-ориентированного программирования Delphi. Коржов Е.Н - 60 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

60
Ⱦɥɹ ɮɨɪɦɵ ɫɨɡɞɚɞɢɦ ɨɛɪɚɛɨɬɱɢɤɢ ɫɨɛɵɬɢɣ, ɤɨɬɨɪɵɟ ɛɭɞɭɬ ɮɢɤɫɢɪɨ-
ɜɚɬɶ ɧɚɠɚɬɢɟ ɤɥɚɜɢɲɢ ɦɵɲɢ ɜ ɩɟɪɜɨɣ ɫɟɤɰɢɢ ɤɨɦɩɨɧɟɧɬɚ StatusBar1, ɨɬ-
ɩɭɫɤɚɧɢɟ ɤɧɨɩɤɢ ɦɵɲɢ ɜɨ ɜɬɨɪɨɣ ɫɟɤɰɢɢ ɢ ɬɟɤɭɳɟɟ ɩɨɥɨɠɟɧɢɟ ɤɭɪɫɨɪɚ
ɦɵɲɢ ɜ ɬɪɟɬɶɟɣ ɫɟɤɰɢɢ.
1. ɋɨɡɞɚɣɬɟ ɨɛɪɚɛɨɬɱɢɤɢ ɞɥɹ ɮɨɪɦɵ:
– ɇɚɠɚɬɢɟ ɧɚ ɤɧɨɩɤɭ ɦɵɲɢ:
procedure TForm1.FormMouseDown(Sender: TObject; Button:
TMouseButton; Shift: TShiftState; X,
Y: Integer);
begin
//ȼ ɩɟɪɜɭɸ ɫɟɤɰɢɸ ɩɚɧɟɥɢ ɫɬɚɬɭɫɚ ɡɚɩɢɫɵɜɚɟɦ ɤɨɨɪɞɢɧɚɬɵ ɦɵɲɢ
ɩɪɢ
// ɧɚɠɚɬɢɢ ɤɧɨɩɤɢ ɦɵɲɢ
StatusBar1.Panels[0].Text := 'ɇɚɱɚɥɨ: ' + 'X:'+IntToStr(x)+';
Y:'+IntToStr(y);
end;
– Ɉɬɩɭɫɤɚɧɢɟ ɤɧɨɩɤɢ ɦɵɲɢ:
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
//ȼɨ ɜɬɨɪɭɸ ɫɟɤɰɢɸ ɩɚɧɟɥɢ ɫɬɚɬɭɫɚ ɡɚɩɢɫɵɜɚɟɦ ɤɨɨɪɞɢɧɚɬɵ ɦɵɲɢ
// ɩɪɢ ɨɬɩɭɫɤɚɧɢɢ ɦɵɲɢ
StatusBar1.Panels[1].Text := 'Ʉɨɧɟɰ: ' + 'X:'+IntToStr(x)+';
Y:'+IntToStr(y);
end;
– ɉɟɪɟɦɟɳɟɧɢɟ ɦɵɲɢ:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
//ȼ ɬɪɟɬɶɸ ɫɟɤɰɢɸ ɩɚɧɟɥɢ ɫɬɚɬɭɫɚ ɡɚɩɢɫɵɜɚɟɦ ɤɨɨɪɞɢɧɚɬɵ ɦɵɲɢ
// ɩɪɢ ɩɟɪɟɦɟɳɟɧɢɢ ɦɵɲɢ
StatusBar1.Panels[2].Text := 'X:'+IntToStr(x)+'; Y:'+IntToStr(y);
end;
2. ɉɪɨɜɟɪɶɬɟ ɩɪɚɜɢɥɶɧɨɫɬɶ ɜɚɲɢɯ ɞɟɣɫɬɜɢɣ, ɨɫɭɳɟɫɬɜɢɜ ɩɪɨɝɨɧ ɩɪɨ-
ɝɪɚɦɦɵ ɪɢɫ. 3.4.4. 
      Ⱦɥɹ ɮɨɪɦɵ ɫɨɡɞɚɞɢɦ ɨɛɪɚɛɨɬɱɢɤɢ ɫɨɛɵɬɢɣ, ɤɨɬɨɪɵɟ ɛɭɞɭɬ ɮɢɤɫɢɪɨ-
ɜɚɬɶ ɧɚɠɚɬɢɟ ɤɥɚɜɢɲɢ ɦɵɲɢ ɜ ɩɟɪɜɨɣ ɫɟɤɰɢɢ ɤɨɦɩɨɧɟɧɬɚ StatusBar1, ɨɬ-
ɩɭɫɤɚɧɢɟ ɤɧɨɩɤɢ ɦɵɲɢ ɜɨ ɜɬɨɪɨɣ ɫɟɤɰɢɢ ɢ ɬɟɤɭɳɟɟ ɩɨɥɨɠɟɧɢɟ ɤɭɪɫɨɪɚ
ɦɵɲɢ ɜ ɬɪɟɬɶɟɣ ɫɟɤɰɢɢ.
    1. ɋɨɡɞɚɣɬɟ ɨɛɪɚɛɨɬɱɢɤɢ ɞɥɹ ɮɨɪɦɵ:
– ɇɚɠɚɬɢɟ ɧɚ ɤɧɨɩɤɭ ɦɵɲɢ:
procedure         TForm1.FormMouseDown(Sender:    TObject;      Button:
                                   TMouseButton; Shift: TShiftState; X,
                                   Y: Integer);
begin
        //ȼ ɩɟɪɜɭɸ ɫɟɤɰɢɸ ɩɚɧɟɥɢ ɫɬɚɬɭɫɚ ɡɚɩɢɫɵɜɚɟɦ ɤɨɨɪɞɢɧɚɬɵ ɦɵɲɢ
ɩɪɢ
        // ɧɚɠɚɬɢɢ ɤɧɨɩɤɢ ɦɵɲɢ
        StatusBar1.Panels[0].Text := 'ɇɚɱɚɥɨ: ' + 'X:'+IntToStr(x)+';
                                      Y:'+IntToStr(y);
end;
– Ɉɬɩɭɫɤɚɧɢɟ ɤɧɨɩɤɢ ɦɵɲɢ:
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
                                  Shift: TShiftState; X, Y: Integer);
begin
     //ȼɨ ɜɬɨɪɭɸ ɫɟɤɰɢɸ ɩɚɧɟɥɢ ɫɬɚɬɭɫɚ ɡɚɩɢɫɵɜɚɟɦ ɤɨɨɪɞɢɧɚɬɵ ɦɵɲɢ
     // ɩɪɢ ɨɬɩɭɫɤɚɧɢɢ ɦɵɲɢ
     StatusBar1.Panels[1].Text :=   'Ʉɨɧɟɰ:     '    +    'X:'+IntToStr(x)+';
Y:'+IntToStr(y);
end;
– ɉɟɪɟɦɟɳɟɧɢɟ ɦɵɲɢ:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
                                       Y: Integer);
begin
     //ȼ ɬɪɟɬɶɸ ɫɟɤɰɢɸ ɩɚɧɟɥɢ ɫɬɚɬɭɫɚ ɡɚɩɢɫɵɜɚɟɦ ɤɨɨɪɞɢɧɚɬɵ ɦɵɲɢ
     // ɩɪɢ ɩɟɪɟɦɟɳɟɧɢɢ ɦɵɲɢ
     StatusBar1.Panels[2].Text := 'X:'+IntToStr(x)+'; Y:'+IntToStr(y);
end;
     2. ɉɪɨɜɟɪɶɬɟ ɩɪɚɜɢɥɶɧɨɫɬɶ ɜɚɲɢɯ ɞɟɣɫɬɜɢɣ, ɨɫɭɳɟɫɬɜɢɜ ɩɪɨɝɨɧ ɩɪɨ-
ɝɪɚɦɦɵ ɪɢɫ. 3.4.4.




                                        60

Страницы