Высокоуровневые методы информатики и программирования. Сивохин А.В - 83 стр.

UptoLike

60
end;
procedure TOrlovMainForm.miShowTableFormClick(Sender: TObject);
begin
OrlovTableForm.Show;
end;
procedure TOrlovMainForm.miHideTableFormClick(Sender: TObject);
begin
OrlovTableForm.Hide;
end;
procedure TOrlovMainForm.miCloseTableFormClick(Sender: TObject);
begin
OrlovTableForm.Close;
end;
procedure TOrlovMainForm.miDestroyTableFormClick(Sender: TObject);
begin
OrlovTableForm.Destroy;
end;
procedure TOrlovMainForm.miExitTableFormClick(Sender: TObject);
begin
Application.Terminate;
end;
procedure TOrlovMainForm.miAboutClick(Sender: TObject);
begin
OrlovAboutForm.Show;
end;
procedure TOrlovMainForm.miNoteBookClick(Sender: TObject);
begin
Application.HelpFile := 'Документы\\BarykinaNoteBook.hlp';
Application.HelpCommand(HELP_CONTENTS, 0);
end;
procedure TOrlovMainForm.FormActivate(Sender: TObject);
begin
OrlovMainForm.OnActivate:= nil;
AppPath:= ExtractFilePath(Application.ExeName);
end;
procedure TOrlovMainForm.miOrlovZapFormClick(Sender: TObject);
begin
     end;

     procedure TOrlovMainForm.miShowTableFormClick(Sender: TObject);
     begin
     OrlovTableForm.Show;
     end;

     procedure TOrlovMainForm.miHideTableFormClick(Sender: TObject);
     begin
     OrlovTableForm.Hide;
     end;

     procedure TOrlovMainForm.miCloseTableFormClick(Sender: TObject);
     begin
     OrlovTableForm.Close;
     end;

     procedure TOrlovMainForm.miDestroyTableFormClick(Sender: TObject);
     begin
     OrlovTableForm.Destroy;
     end;

     procedure TOrlovMainForm.miExitTableFormClick(Sender: TObject);
     begin
       Application.Terminate;
     end;

     procedure TOrlovMainForm.miAboutClick(Sender: TObject);
     begin
       OrlovAboutForm.Show;
     end;

     procedure TOrlovMainForm.miNoteBookClick(Sender: TObject);
     begin
       Application.HelpFile := 'Документы\\BarykinaNoteBook.hlp';
       Application.HelpCommand(HELP_CONTENTS, 0);
     end;

     procedure TOrlovMainForm.FormActivate(Sender: TObject);
     begin
      OrlovMainForm.OnActivate:= nil;
      AppPath:= ExtractFilePath(Application.ExeName);
     end;

     procedure TOrlovMainForm.miOrlovZapFormClick(Sender: TObject);
     begin

60