Fórum Formulários invisíveis #529847

Form.Visible:= True e Form.Visible:= False ??

type
TForm1 = class(TForm)
ICo: TTrayIcon;
Opc: TPopupMenu;
V1: TMenuItem;
Timer1: TTimer;
Modo_Oculto: TButton;
procedure FormCreate(Sender: TObject);
procedure MostrarAplicattionClick(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Modo_OcultoClick(Sender: TObject);

Var
tempo:integer;


procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled:=true;
end;



procedure TForm1.Modo_OcultoClick(Sender: TObject);
begin
ICo.Visible:=true;
Form1.Visible:=false;

end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
tempo:=tempo+1;
if tempo=1 then
begin
Timer1.Enabled:=false;
Modo_Oculto.Click;
end;
end;