Немодальную форму сделать модальной?

← →
Ерик (2002-10-21 11:22) [0]

Возмолжно ли сделать субж?

← →
Skier (2002-10-21 11:24) [1]

ShowModal ? :)

← →
Игорь Шевченко (2002-10-21 11:29) [2]

Возможно

← →
Ерик (2002-10-21 11:44) [3]

Игорь Шевченко © (21.10.02 11:29):
begin
Form2 := TForm2.Create(Application);
Form2.Show;
...
ХочуМодальнуюФорму(Form2);
Form2.Free();
end;

Как релизовать процедуру ХочуМодальнуюФорму ?

← →
Игорь Шевченко (2002-10-21 11:45) [4]

Посмотреть в Program Files/Borland/Delphi/Source/VCL/Forms.pas реализацию ShowModal

← →
Skier (2002-10-21 11:47) [5]

>Ерик

begin
Form2 := TForm2.Create(Application);
try
Form2.ShowModal;
finally
FreeAndNil(Form2);
end; //try
end;

← →
Ерик (2002-10-21 12:03) [6]

Skier © (21.10.02 11:47):
Вроде, я ясно написал:
begin
Form2 := TForm2.Create(Application);
Form2.Show; // Имеем немодальную
... //Выполняем некоторый код...
ХочуМодальнуюФорму(Form2); //Теперь нужно чтобы Form2 стала модальной того чтобы ее закрыть
Form2.Free();
end;

Можно сделать так

begin
Form2 := TForm2.Create(Application);
Form2.Show;
... //Выполняем некоторый код...
Form2.Hide();
Form2.ShowModal;
Form2.Free();
end;

Но хотелось бы без закрытия.

Игорь Шевченко © (21.10.02 11:45):
Попытаюсь. Thanks.

← →
REA (2002-10-21 12:09) [7]

А зачем такой изврат? Передай параметры нужные в форму и все. Код можно перебросить в форму или отдельный модуль. В конце концов можно передать Callback.
А ты уверен что за то время пока ты выполняешь "некоторый код" пользователь не произведет какие-то действия?

← →
Bis (2002-10-21 13:17) [8]

для того, чтобы закрыть, не обязательно делать модальной
просто вызови при нажатии определенной кнопки метод Close
А чтобы поймать например нажатие Enter, можно сделать обработчик на форму.
Способов много.

Немодальную форму сделать модальной? Найти похожие ветки