Предыдущая страница реферата | 5  6  7  8  9  10  11  12  13  14  15 | Следующая страница реферата

    procedure StringGrid1KeyPress(Sender: TObject; var Key: Char);

  private

   { Private declarations }

  public

    { Public declarations }

  end;

var

  Form2: TForm2;

  I, J: Integer;

implementation

uses Unit1, Unit6, Unit3;

{$R *.dfm}

procedure TForm2.N4Click(Sender: TObject);

begin

close;

Form1.Close;

end;

procedure TForm2.Button1OnClick(Sender: TObject);

begin

Form3.visible:=true;

Form2.visible:=false;

end;

procedure TForm2.Button2OnClick(Sender: TObject);

begin

Form1.visible:=true;

Рекомендуем скачать другие рефераты по теме: реферат по технологии, реферат эволюция.



Предыдущая страница реферата | 5  6  7  8  9  10  11  12  13  14  15 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки