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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

ɠ) ɡ)
Ɋɢɫ. 3.4.2. Ɉɤɧɚ ɪɚɛɨɬɚɸɳɟɣ ɩɪɨɝɪɚɦɦɵ
Ʌɢɫɬɢɧɝ ɩɪɨɝɪɚɦɦɧɵɯ ɦɨɞɭɥɟɣ:
unit U5;
{
}
Interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms, Dialogs, Menus, jpeg, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
MainMenu1: TMainMenu;
Memo1: TMemo;
N21: TMenuItem;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
Label1: TLabel;
FontDialog1: TFontDialog;
N2: TMenuItem;
N3: TMenuItem;
procedure N21Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure N1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
50
                     ɠ)                              ɡ)
                 Ɋɢɫ. 3.4.2. Ɉɤɧɚ ɪɚɛɨɬɚɸɳɟɣ ɩɪɨɝɪɚɦɦɵ

                    Ʌɢɫɬɢɧɝ ɩɪɨɝɪɚɦɦɧɵɯ ɦɨɞɭɥɟɣ:
unit U5;
{
}
Interface
   uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
      Forms, Dialogs, Menus, jpeg, ExtCtrls, StdCtrls;
   type
      TForm1 = class(TForm)
                  Image1: TImage;
                  MainMenu1: TMainMenu;
                  Memo1: TMemo;
                  N21: TMenuItem;
                  PopupMenu1: TPopupMenu;
                  N1: TMenuItem;
                  Label1: TLabel;
                  FontDialog1: TFontDialog;
                  N2: TMenuItem;
                  N3: TMenuItem;
                  procedure N21Click(Sender: TObject);
                  procedure FormActivate(Sender: TObject);
                  procedure N1Click(Sender: TObject);
                  private
                     { Private declarations }
                  public
                     { Public declarations }
                end;

                                     50

Страницы