Unit3.fmx

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Button2: TButton;
    Button3: TButton;
    ImageControl2: TImageControl;
    ImageControl3: TImageControl;
    Button1: TButton;
    ImageControl1: TImageControl;

    //procedure ShowForm(AObject: TFmxObject);
    procedure Button2Click(Sender: TObject);
    procedure ImageControl1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ImageControl2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure ImageControl3Click(Sender: TObject);
  private
    //Fform2: TForm2;
    { Private declarations }
  public

    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

uses Unit2;




{procedure TForm1.ShowForm(AObject: TFmxObject);
  var
    i:integer;
  begin
      for i:=0 to Pred(Self.Panel1.children.count)do
        TControl(Self.Panel1.Children[i]).Visible:=TControl(Self.Panel1.Children[i])=TControl(AObject);
  end;  }



procedure TForm1.Button1Click(Sender: TObject);
begin
    Form2.showmodal;
end;

procedure TForm1.Button2Click(Sender: TObject);

begin
    Form2.showmodal;

    {if not assigned(Fform2) then
      Fform2:=TForm2.Create(self);
      Panel1.AddObject(Fform2.Panel2);
      ShowForm(Fform2.Panel2); }




end;





procedure TForm1.Button3Click(Sender: TObject);
begin
    Form2.showmodal;
end;

procedure TForm1.ImageControl1Click(Sender: TObject);
begin
    Form2.showmodal;
end;

procedure TForm1.ImageControl2Click(Sender: TObject);
begin
    Form2.showmodal;
end;

procedure TForm1.ImageControl3Click(Sender: TObject);
begin
    Form2.showmodal;
end;

end.