Form ShowModal blocking still not working

[BruceTTT]

I've tried both the anonymous method below and the MainModule's EnableSynchronousOperations = True and I still can't get the following form to block:

        frm:= TUWindowsLogin.Create(UniApplication);
        frm.ShowModal(
                       procedure(Sender: TComponent; Result:Integer)
                       begin
                       if Result=mrOk then
                          begin
                          temp:= frm.AuthenticatedUser;
                          end;
                       end
                     );

        ShowMessage(temp);
 

The "ShowMessage" call runs *before* the form shows. What am I missing?

[Hayri ASLAN]

hi,

 

if frm.ShowModal = mrOk then

  ShowMessage( frm.AuthenticatedUser );