Открытие модальной формы с продолжением выполнения кода первой формы

[KBO]

Подскажите пожалуйста
Есть код:

begin
...
  FRepeat := TFRepeat.Create(self);
  FRepeat.ShowModal;
  showmessage('Next');
…
end;

мне нужно, чтоб форма «FRepeat», открылась модально (чтоб пользователь находился только в «FRepeat»), но код (в первой форме) после «FRepeat.ShowModal;» (первой формы), сразу (после открытия второй формы) дошел бы до конца.

Спасибо.
P.S.
Дело в том что, «FRepeat.ShowModal;» может вызываться и с других нескольких мест, но с ОБЯЗАТЕЛЬНОЙ отработкой кода (см. выше).
Нельзя же открытую немодальную форму сделать модальной

[Krasiosoft]

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

Дело в том что, «FRepeat.ShowModal;» может вызываться и с других нескольких мест

То есть может быть открыта более чем одна форма «FRepeat»?

Для этого нужно будет создавать новый поток, и с него уже открывать форму, т.к. после ShowModal поток ожидает, пока форма не будет закрыта. Но проще будет использовать Show, т.к. и в одном, и в другом случае нужно самому блокировать основную форму.

[Вадим Мошев]

А что, если сначала дать отработать необходимому участку кода (если такое можно), а потом открыть модальную форму?

Либо второй вариант - работа с несколькими потоками: http://www.delphi-manual.ru/threads.php

Подробнее о потоках не скажу - не работал с ними.

Krasiosoft опередил меня насчёт потоков.

[min@y™]

а можно нужный код выполнять в отдельном потоке, стартовать который непосредственно перед ShowModal()?

[evg_m]

Можно конечно так

FRepeat.Show;
showmessage('Next');
Frepeat.hide;
Frepeat.ShowModal;

Но почему нельзя просто поменять код местами (выполнить тот же код ДО показа формы в модальном режиме?

сразу (после открытия второй формы) дошел бы до конца.

P.S. показывать не модально и блокировать работу пользователя с другой формой

Repeat:=TReprat.Create(self);
repeat.Show;

procedure TRepeat.onShow(sender: TObject);
begin
  (self.owner as TForm).enabled:=false;
end;

procedure TRepeat.OnClose(sender: TObject; var action: TActionClose);
begin
  (self.owner as Tform).Enabled:=true;
end;

[KBO]

Сообщение от min@y™

а можно нужный код выполнять в отдельном потоке, стартовать который непосредственно перед ShowModal()?

Про поток я как-то подзабыл. Это вариант. Но честно говоря, приложение не стоит лишнего потока, это если совсем деваться не куда будет.

Подумаю всетаки о перестановке (старый код не хотел менять - работал ведь). Перенесу вызов процедуры в конец, сделаю какую-нибудь private переменную - ключ. и вынесу showmodal в отделюную процедуру. Не хотелось конечно, столько процедур развелось... :-)

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

Можно конечно так

FRepeat.Show;
showmessage('Next');
Frepeat.hide;
Frepeat.ShowModal;

Но почему нельзя просто поменять код местами (выполнить тот же код ДО показа формы в модальном режиме?

Интересный вариант

Спасибо

[min@y™]

Но честно говоря, приложение не стоит лишнего потока, это если совсем деваться не куда будет.

всё от постановки задачи зависит. перетащить кусок кода из основного потока в побочный много времени не займёт, зато как красиво!