Skip to main content
4 de 5
adicionou 422 caracteres ao conteúdo

Se eu fosse você, controlaria com uma variável privada alimentando no onCreate do principal, assim ele abriria o Login e no onCreate do Login alimentava a variável com False, no onShow do principal verifico se é para fazer login ou não, olhando a variável. Da seguinte maneira:

onCreate Principal:

bLogin := False;
fmLogin := TfmLogin.Create(Self); 
try
  fmLogin.ShowModal;
  bLogin := fmLogin.LoginOK;
finally
   FreeAndNil(fmLogin);
end;

onCreate Login:

bLoginOK := False

onShow Principal:

if bLogin then
begin
  ...
end
else
begin
  Application.Terminate;
end;

Mas partindo da sua lógica, você pode chamar o evento OnClick do Logout não precisando verificar se clicou ou não.

   FrmPrincipal.Logout1.OnClick(Sender)

Podes também controlar com um Checked no MenuItem, no MenuItem tem uma propriedade com AutoCheck, marcando essa propriedade ele vai controlar o check no menuItem, com isso podes verificar se está checado ou não na hora que ele clica no MenuItem.

 if testecheck.Checked then
     ShowMessage('teste');