Como chamar uma unit ao iniciar?´
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
Curtidas 0
Respostas
Beppe
14/10/2003
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]
GOSTEI 0
Carlos Bernardo
14/10/2003
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....
GOSTEI 0