Formulários invisíveis

Delphi

26/08/2015

Como faço para, mesmo em tempo de elaboração, fazer um formulário ficar invisível. E também como reverter esse processo, ou seja, se ele estiver invisível, torná-lo visível novamente.
Oswaldo Souto

Oswaldo Souto

Curtidas 0

Respostas

Mateus Ribeiro

Mateus Ribeiro

26/08/2015

Form.Visible:= True e Form.Visible:= False ??
GOSTEI 0
Raimundo Pereira

Raimundo Pereira

26/08/2015

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;
GOSTEI 0
POSTAR