Skip to main content
conteúdo editado
Fonte Link

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;OKLogin;
finally
   FreeAndNil(fmLogin);
end;

onCreate Login:

bLoginOKbOKLogin := 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');

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');

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.OKLogin;
finally
   FreeAndNil(fmLogin);
end;

onCreate Login:

bOKLogin := 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');
adicionou 422 caracteres ao conteúdo
Fonte Link

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');

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.

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');

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');
adicionou 311 caracteres ao conteúdo
Fonte Link

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.

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');

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.

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)   

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.

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');
adicionou 323 caracteres ao conteúdo
Fonte Link
Carregando
Fonte Link
Carregando