[M.A.D.M.A.N.]

Сообщение от geniusbsd

А как на счет вашего варианта if TfrmUserLogin.UserLogin(Application, TfrmMain.UserLoginInfo) then
Обясните?

Первая часть сообщения, а не вторая, смотри внимательно, я там твой код редактировал.

Во второй части, то просто класс-функция, в которой создается форма и так же вызывается ShowModal.

Код:

class function TfrmUserLogin.UserLogin(AOwner: TComponent): Boolean;
var
  frm: TfrmUserLogin;
begin
  frm := TfrmUserLogin.Create(AOwner);
  try
    Result := frm.ShowModal = mrOk;
  finally
    frm.Free;
  end;
end;

[geniusbsd]

С CASE OF Я понял
а вот это TfrmMain.UserLoginInfo ?

[M.A.D.M.A.N.]

Удали это, оно тебе не нужно. Уже всё разжевано, только скопируй и пользуйся.

[geniusbsd]

Вообщем все работает нормаль остался вопрос, а как теперь у этой модальной формы спрятать значок с панели задач windows