[Romix]

Доброе время суток всем. Уже неделю бьюсь над вопросом... И решил обратится к Вам.
Есть код:

Код:

procedure TMainForm.IdTCPServerExecute(AContext: TIdContext);
begin
MessageForm:=TMessageForm.Create(Application);
...
MessageForm.Show;
end;

Как видите, должна создаваться и появляться форма в приложении когда Сервер получает некое сообщение. Но форма появляется ровно на "секунду" и исчезает. Тогда я сделал так:

Код:

MessageForm.ShowModal;

И форма нормально появляется и я могу с ней работать, но когда я её закрою и придёт новое сообщение на сервер и форма должна опять создасться, вылетает ошибка:
http://www.delphisources.ru/forum/at...d=135258537 6
А вот при нажатии на кнопку этот код работает нормально. Как нужно.
Подскажите как обойтись без "ShowModal"?

Вообще не представляю почему так происходит. Помогите уважаемые прогеры. Неделю бьюсь над проблемой.

[poli-smen]

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

Доброе время суток всем. Уже неделю бьюсь над вопросом... И решил обратится к Вам.
Есть код:

Код:

procedure TMainForm.IdTCPServerExecute(AContext: TIdContext);
begin
MessageForm:=TMessageForm.Create(Application);
...
MessageForm.Show;
end;

Как видите, должна создаваться и появляться форма в приложении когда Сервер получает некое сообщение. Но форма появляется ровно на "секунду" и исчезает.

Скорее всего проблема связана с многопоточностью.
Я бы добавил форме обработчик своего сообщения и в нём бы создавал и показывал форму, а в обработчике IdTCPServerExecute посылал бы это своё сообщение через PostMessage.
Вот примерно так:

Код:

const
  MY_SHOWFORM = WM_USER + 1;

type
  TMainForm = class(TForm)
    .....
    procedure IdTCPServerExecute(AContext: TIdContext);
    .....
  private
    .....
    procedure MyShowForm(var Message: TMessage); message MY_SHOWFORM;
    .....
  end;
.....
implementation
.....
procedure TMainForm.IdTCPServerExecute(AContext: TIdContext);
begin
  PostMessage(Handle, MY_SHOWFORM, 0, 0);
end;

procedure TMainForm.MyShowForm(var Message: TMessage);
begin
  MessageForm := TMessageForm.Create(Application);
  ...
  MessageForm.Show;
end;

[angvelem]

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

... Но форма появляется ровно на "секунду" и исчезает...

Скорее всего, форма не исчезает, а уходит на задний план. Попробуйте выставить ей StayOnTop.

[Romix]

poli-smen Спасибо большое!!! Я примерно так и представлял... Я знал что нужно вынести "процедуру" вне Execute... Но не додумался как. Теперь всё понятно. Дай Боженька тебе здоровья.