unit FormMainSubroutineCallingTWOSep162020;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Menus, StdCtrls,
FormSubCallModule2Sep162020, FormSuCallModule3Sep162020;
type
{ TFromMainSubroutineCall2Sep162020 }
TFromMainSubroutineCall2Sep162020 = class(TForm)
MainMenu1: TMainMenu;
MenuItem1: TMenuItem;
MenuItem2: TMenuItem;
MenuItem3: TMenuItem;
MenuItem4: TMenuItem;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
RadioButton5: TRadioButton;
RadioButton6: TRadioButton;
procedure MenuItem2Click(Sender: TObject);
procedure MenuItem3Click(Sender: TObject);
procedure MenuItem4Click(Sender: TObject);
procedure RadioButton1Change(Sender: TObject);
procedure RadioButton2Change(Sender: TObject);
private
public
end;
var
FromMainSubroutineCall2Sep162020: TFromMainSubroutineCall2Sep162020;
implementation
{$R *.lfm}
{ TFromMainSubroutineCall2Sep162020 }
procedure TFromMainSubroutineCall2Sep162020.MenuItem2Click(Sender: TObject);
begin
//
close;
//
end;
procedure TFromMainSubroutineCall2Sep162020.MenuItem3Click(Sender: TObject);
begin
//
FormSubCallModuleONESep162020.showModal;
//
end;
procedure TFromMainSubroutineCall2Sep162020.MenuItem4Click(Sender: TObject);
begin
//
FormSubCallModuleTWOSep162020.ShowModal;
//
end;
procedure TFromMainSubroutineCall2Sep162020.RadioButton1Change(Sender: TObject);
begin
//
FormSubCallModuleONESep162020.showModal;
//
end;
procedure TFromMainSubroutineCall2Sep162020.RadioButton2Change(Sender: TObject);
begin
//
FormSubCallModuleTWOSep162020.ShowModal;
//
end;
end.
//**************************************************************************************************
unit FormSubCallModule2Sep162020;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Menus;
type
{ TFormSubCallModuleONESep162020 }
TFormSubCallModuleONESep162020 = class(TForm)
MainMenu1: TMainMenu;
MenuItem1: TMenuItem;
MenuItem2: TMenuItem;
procedure MenuItem2Click(Sender: TObject);
private
public
end;
var
FormSubCallModuleONESep162020: TFormSubCallModuleONESep162020;
implementation
{$R *.lfm}
{ TFormSubCallModuleONESep162020 }
procedure TFormSubCallModuleONESep162020.MenuItem2Click(Sender: TObject);
begin
//
close;
//
end;
end.
//**********************************************************************************************
unit FormSuCallModule3Sep162020;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Menus;
type
{ TFormSubCallModuleTWOSep162020 }
TFormSubCallModuleTWOSep162020 = class(TForm)
MainMenu1: TMainMenu;
MenuItem1: TMenuItem;
MenuItem2: TMenuItem;
procedure MenuItem2Click(Sender: TObject);
private
public
end;
var
FormSubCallModuleTWOSep162020: TFormSubCallModuleTWOSep162020;
implementation
{$R *.lfm}
{ TFormSubCallModuleTWOSep162020 }
procedure TFormSubCallModuleTWOSep162020.MenuItem2Click(Sender: TObject);
begin
//
close;
//
end;
end.