Fórum Como chamar uma unit ao iniciar?´ #188550
14/10/2003
0
Oi . . .
Como fazer para que ao iniciar, a unit principal ´chame´ outra unit, de login por exemplo?
Na unit principal, tentei o Evnto OnShow, e OnCreate, chamando o login, não deram certo.
O exento OnActivate funciona, mas toda vez que chamo a unit principal o login vem junto.
Como eu faço?
Beijos
Fab
Como fazer para que ao iniciar, a unit principal ´chame´ outra unit, de login por exemplo?
Na unit principal, tentei o Evnto OnShow, e OnCreate, chamando o login, não deram certo.
O exento OnActivate funciona, mas toda vez que chamo a unit principal o login vem junto.
Como eu faço?
Beijos
Fab
Fab
Curtir tópico
+ 0
Responder
Posts
14/10/2003
Beppe
Olá Fab,
utilize a seção [b:857fd5d0f0]initialization[/b:857fd5d0f0], no final da unit, assim:
unit Unit1;
interface
...
implementation
...
initialization
Form2.Show;
end.
Ataliba[/b]
utilize a seção [b:857fd5d0f0]initialization[/b:857fd5d0f0], no final da unit, assim:
unit Unit1;
interface
...
implementation
...
initialization
Form2.Show;
end.
Ataliba[/b]
Responder
Gostei + 0
04/11/2003
Carlos Bernardo
Fab , eu consegui resolver o mesmo problema da seguinte maneira....
no ONCREATE eu inicializei um valor na tag do form
begin
Self.tag := 1;
Self.Enabled := False;
end;
no evento OnActivate eu fiz uma condição
If self.Tag =1 then
begin
Form2.Show;
Self.Tag :=2;
end;
no evento onclose do form2
begin
form1.Enabled := true;
action := cafree;
end;
Espero ter ajudado, e tbm deve haver outras maneiras de resolver....
no ONCREATE eu inicializei um valor na tag do form
begin
Self.tag := 1;
Self.Enabled := False;
end;
no evento OnActivate eu fiz uma condição
If self.Tag =1 then
begin
Form2.Show;
Self.Tag :=2;
end;
no evento onclose do form2
begin
form1.Enabled := true;
action := cafree;
end;
Espero ter ajudado, e tbm deve haver outras maneiras de resolver....
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)