Кто-нибудь знает, как можно создать модальное окно, но не для всего приложения, а для конкретных окон, например для текущего.
Если можно, примерчик....

просто открыть его методом ShowModal
Пример:

Код

Form2.ShowModal;

Нет, ты не понял. Мне не надо делать его вообще модальным. У меня тогда не будет доступа ни к меню, ни к другим окнам. Мне именно надо заблокировать вызвавшее окно (Sender)

А что если у вызвавшего окна сделать Enabled := false;

kesh, у тебя просто перестанут работать все контролы. но фокус окно будет получать по прежнему.

wik, просто в блокируемом окне вешаешь обработчик на активацию и в нём проверяешь: если "модальное" окно в данный момент открыто, то фокус переводим на него. а открываться окно будет обычным Show.

Код

procedure TForm2.FormActivate(Sender: TObject); begin  if Form3.Visible then    Form3.SetFocus; end;

ok, спасибо. Только вот теперь вопрос, как получить из этого немодального окна какие-то параметры и вообще отследить, что оно закрылось

что ты называешь немодальным окном? то, которое открывается или то, из которого открывается?

в любом случае, просто добавь их в uses друг к другу. и читай любые свойства формы, например, Form2.Edit1.Text и пр.

Люди, у меня тут есть проблема. Хочу создать модальное окно, которое отбражает некоторый процесс (в окне progress bar и кнопка cancel). Выполнение требуемых операций я поставил на событие OnShow модального окна. По завершении процесса модальное окно должно само закрыться. Ставлю в конце обработчика OnShow Close или ModalResult:=mrOk. Но окно не закрывается. На обработчике OnClick кнопки Cancel стоит ModalResult:=mrCancel, и при нажатии на кнопку окно закрывается. Подскажите, в чем я не прав.

поподробней код приведи, так ниче непонятно

Цитата

Хочу создать модальное окно, которое отбражает некоторый процесс (в окне progress bar и кнопка cancel).

По-моему, для этих целей лучше воспользоваться фрэймом... ИМХО...

Maverick, а фрейм где будет находиться?

не самый лучший вариант - в OnShow прописывать обработчик отображения прогрессбара и там же закрывать. это всё надо делать из основно проги:

Код

f.Show;  try    f.ProgressBar1.Max := 100;    for i := 0 to 100 do begin      f.ProgressBar1.Position := i;      f.Update;    end;  finally    f.Hide;  end;

Спасибо. Но почему

Цитата

не самый лучший вариант - в OnShow прописывать обработчик отображения прогрессбара и там же закрывать.

Мне, в принципе, была непонятна такая вещь: почему при выполнении команды ModalResult := mrOk в обработчике события OnShow модального окна оно не закрывается.

а ты взгляни, как работает метод ShowModal, тебе понравится

Код

...  try    // здесь срабатывает твой обработчик, в котором ты присваиваешь ModalResult := mrOk;    Show;    try      // здесь форма становится активной и ModalResult сбрасывается в 0      SendMessage(Handle, CM_ACTIVATE, 0, 0);      ModalResult := 0;      repeat        Application.HandleMessage;        // твоё присваивание прошло "вхолостую", ModalResult = 0 и форма остаётся открытой        if Application.FTerminate then ModalResult := mrCancel else          if ModalResult <> 0 then CloseModal;      until ModalResult <> 0;      // ну и т.д.      Result := ModalResult;      SendMessage(Handle, CM_DEACTIVATE, 0, 0);      if GetActiveWindow <> Handle then ActiveWindow := 0;    finally      Hide;    end;  finally  ...

поэтому закрывать модальные окна изменением ModalResult в OnShow - абсолютно бесполезно.