Tela de login sobre formulario MDI
22/09/2004
0
Arc
Posts
22/09/2004
Roy
Boa Sorte.
22/09/2004
Arc
22/09/2004
Mago M3rl1n
22/09/2004
Arc
22/09/2004
Mago M3rl1n
23/09/2004
Arc
Tem algum evento onde eu possa colocar o showmodal para abrir automaticamente, junto com o mdi ?
23/09/2004
Dopi
Talvez seja necessário criar algum ´flag´ para sinalizar se já houve login ou não.... pois acho que o Onactive é disparado quando você alternar de programa (ALT-TAB, ALT-ESC)
Ex.: if not LoginEfetuado then
if FormSenha.Showmodal = mrOk then
LoginEfetuado := true ;
23/09/2004
Eduprp
Você pode colocar um Timer ao invés da Flag.
A propriedade active sempre como True.
Quando inicia o programa o timer é ativado (coloque a propriedade interval como 1), no evento ontimer altere a propriedade enable do timer para false e showmodal no form de login.
Eduardo M. Pereira
23/09/2004
Mago M3rl1n
procedure frmPrincipal.WmUser(var Msg: TMessage);
begin
case Msg.Wparam of
EV_JANELA_VISIVEL :
begin
{coloque seu codigo para chamar janela de login}
end;
end;
2) Defina na private
procedure WmUser(var Msg: TMessage); message WM_USER;
3) No OnShow, coloque
PostMessage(Handle, WM_USER, EV_JANELA_VISIVEL, 0);
23/09/2004
Arc
depois de muita insistencia eu consegui usar o form de login mudando a propriedade FormStyle como fsStayOnTop.
Então la no AutoCreate Form do Delphi eu deixei o DataModule, o Form do Menu e o Form do Login
o Menu esta assim
FormStyle = fsMDIForm
Defaultmonitor = dmActiveForm
Enabled = False
Login
FormStyle = fsStayonTop
Defaultmonitor = dmActiveForm
O main menu está o form do Menu
Esta funcionando beleza, só persiste um problema, o foco não esta vindo no form de login
Alguma dica ????
Clique aqui para fazer login e interagir na Comunidade :)