Uygulamanın Tabı taskbarda gözükmüyor

[a.mikayil]

Merhaba. Ben Login penceresi olan bir uygulama üzerinde çalışıyorum. Logın penceresini Main formun OnShow olayında çağırıyorum. Şöyle

Kod: Tümünü seç

procedure TfMain.FormShow(Sender: TObject);
begin
  Application.CreateForm(TfLogin, fLogin);
  fLogin.ShowModal;
.....................................
....................................

Ama Login formunun Modal Resultu mrYes olup Main form gözükünceye kadar uygulamamın tabı taskbara inmiyor. Alt+Tab kombinasyonuyla bula biliyorum. Ama normalde uygulama açılır açılmaz taskbara inmeli değil mi?FormStyle=fsNormal.

[CiTiZEN]

showmodal komutundan sonra neler var, bunlarıda yazarsan daha iyi olur bir ikincisi showmodal komutundan sonraki kodlar modal form kapanana kadar çalıştırılmaz, ve anaformunda bu yüzden gösterilmiyor, 2.formu oluşturmayı ve göstermeyi birde ana formun onactivate olayına yaz.

[a.mikayil]

ShowModal'dan sonra yazdıklarım şöyle

Kod: Tümünü seç

  if fLogin.ModalResult = 6 then
  begin
    if fLogin.LabelLock.Caption = '1' then
    begin
      with SP_UserLog do
      begin
        Active := False;
        Parameters.Refresh;
        Parameters.ParambyName('@COMPNAME').Value := ElnGetComputerNetName;
        Parameters.ParambyName('@COMPDATE').Value := Now;
        Parameters.ParambyName('@COMPIP').Value := ElnGetComputerIPAdres;
        Parameters.ParambyName('@PROGVER').Value := ElnFileVersion(Application.ExeName);
        Parameters.ParambyName('@LOGKIND').Value := 0;
        Parameters.ParambyName('@INOUTID').Value := IntToStr(EServerDate) + ENextID('INOUTID', 'SU.AZSINOUT', '', 0, 3);
        try
          ExecProc;
          InOutId := Parameters.ParambyName('@INOUTID').Value;
        Except
          On E: Exception do
            fMain.MsgdlE('Giriş-çıxış haqqında qeydiyyat aparılmadı!' + #13#10 + E.Message, 1, 3, 0);
        end;
      end;
    end;
    fMain.WindowState := wsMaximized;
    ButtonMenu.Click;
    ButtonTB.Click;
    with DM do
    begin
      LT_DrLevels.Active := True;
      LT_DrSpecs.Active := True;
      LT_DrugGroups.Active := True;
      LT_Marks.Active := True;
      LT_Regions.Active := True;
      LT_Doctors.Active := True;
      LT_Drugs.Active := True;
      LT_DrugDet.Active := True;
      LT_PaidType.Active := True;
    end;
  end
  else
  begin
    fMain.Close;
    Abort;
  end;
  StatusBarMain.Panels[4].Text := 'AZSoft MMC';
  StatusBarMain.Panels[5].Text := 'AZSDSC ';

[CiTiZEN]

formunun showmodal komutunu ana formun onactivate olayına yaz dene.