Здравствуйте, sined, Вы писали:

S>Здравствуйте, Sergey__, Вы писали:


S>Если версия Delphi 2007 и выше то такое может быть
S>при определенных условиях , ключ ко всему это свойства
S>Application.ModalPopupMode и TForm.PopupMode
S>а также как я смог заметить время когда создаются формы
S>если они создаются до показа главной формы то скорее всего
S>все будет ок если же где то динамично после показа главной формы
S>то могут быть описанные эффекты


1) версия Delphi 7,
о PopupMode и ModalPopupMode — Delphi7 не подозревает

2) формы, кроме майн, создаются динамически

procedure TMainForm.FormShow(Sender: TObject);
begin
  Application.CreateForm(TRegForm, RegForm);
  RegForm.ShowModal;

3) и даже в DFM ничего подозрительного нет:

object RegForm: TRegForm
  Left = 465
  Top = 344
  Width = 286
  Height = 404
  Caption = #1056#1077#1075#1080#1089#1090#1088#1072#1094#1080#1103'                                '
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 13
  object lbl1: TLabel
    Left = 10
    Top = 0
    Width = 161
    Height = 13
    Caption = #1056#1077#1075#1080#1089#1090#1088#1072#1094#1080#1103'                                '
    Visible = False
  end

  object Button2: TButton
    Left = 38
    Top = 284
    Width = 203
    Height = 25
    Caption = #1043#1086#1090#1086#1074#1086' ('#1072#1085#1082#1077#1090#1072' '#1079#1072#1087#1086#1083#1085#1077#1085#1072')'
    Default = True
    ModalResult = 1
    TabOrder = 2
    OnClick = Button2Click
  end

end