unit piloto1;

interface

uses
  {$IFDEF LINUX} Libc, {$ENDIF} Qt {Windows}, {Messages} SysUtils, Variants, Classes, QGraphics, QControls, QForms,
  QDialogs, QStdCtrls, QButtons, QExtCtrls,Unit2, Unit4;//, comunicaciones;

type
  Tpilot1 = class(TForm)
    Image2: TImage;
    Image3: TImage;
    Image1: TImage;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure Image3Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }

    salida1:Tfsalidas;
    tiempo:Tfentradas;
  end;

var
  pilot1: Tpilot1;

implementation

//uses Unit2, Unit3, Unit4;

{$R *.xfm}

procedure Tpilot1.BitBtn1Click(Sender: TObject);
begin
{
salida1.inicializar(0,420,265,1,1,'A');
salida1.show;
fentradas.inicializar(0,530,265,10,3,1);
fentradas.show;}
//salida2.inicializar(0,500,500,2,0,'B');
//salida2.show;


//salida3.inicializar(0,700,500,4,1,'C');
//salida3.show;

end;




procedure Tpilot1.FormShow(Sender: TObject);
begin

Application.CreateForm(Tfsalidas, salida1);
Application.CreateForm(Tfentradas, tiempo);

tiempo.inicializar(0,pilot1.Left+337,pilot1.top+200,3,1,0,1);
tiempo.Show;
salida1.inicializar(0,pilot1.Left+225,pilot1.top+200,1,1,0,'A');
salida1.show;
end;

procedure Tpilot1.Image2Click(Sender: TObject);
begin

hide;
salida1.Hide;
tiempo.hide;
end;

procedure Tpilot1.Image3Click(Sender: TObject);
begin
Application.terminate;
end;

procedure Tpilot1.Image1Click(Sender: TObject);
begin
    //mandardatos_pilot1;
    showmessage('Datos enviados');
    
end;

end.