How do I run the Menuiten.Click event in an if? Delphi loop

Question

I’m putting together the login part of my system, only I’m facing a big problem. My cancel button from the login screen needs to receive two features. The first is that being clicked before the main screen of the system is opened the entire application is terminated. If the main screen is already open it is to make the second functionality that would cancel the user change at runtime ! That is, the logout cancellation, the user exchange canceled. However for the logic I am using to work, it has to be passed by an if, only the logout click is an Itemmenu of a Mainmenu. If I wear it like this

if FrmPrincipal.Logout1.Click = True then

It accuses error of incompatible type If I’ve done it this other way

if FrmPrincipal.Logout1.OnClick

He’s wrong and he doesn’t turn. That’s what I wanted to know... how do I make an Itemmenu run in an if loop.

Answer 1

If I were you, I would control with a private variable feeding in the main onCreate, so it would open Login and in the Login onCreate feed the variable with False, in the main onShow I check if it is to login or not, looking at the variable. As follows:

onCreate Leading:

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

onCreate Login:

bOKLogin := False

onShow Leading:

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

But starting from your logic, you can call the Onclick event from Logout not needing to check whether or not clicked.

   FrmPrincipal.Logout1.OnClick(Sender)

You can also control with a Checked in Menuitem, Menuitem has a property with Autocheck, marking this property he will control the check in the menuItem, so you can check whether it is checked or not at the time he clicks on the menuitem.

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