Показать сообщение отдельно
  #16  
Старый 11.07.2011, 09:51
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

выход: либо перед вызовом ShowModal (да и вообще перед созданием формы) проверять значение, либо PostMessage:
Код:
type
  TForm2 = class(TForm)
    procedure FormActivate(Sender: TObject);

procedure TForm2.FormActivate(Sender: TObject);
begin
  if Tag=0 then PostMessage(Handle, WM_CLOSE, 0, 0);
end;
но 2-ой вариант не красиво смотрится, т.к. форма успеет моргнуть на экране. 1-ый вариант идеален)
__________________
Пишу программы за еду.
__________________
Ответить с цитированием