Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Немодальную форму сделать модальной? [D6, Win2k]

Ерик © (2002-10-21 11:22:00)
Возмолжно ли сделать субж?

Bis (2002-10-21 13:17:00) [1]
для того, чтобы закрыть, не обязательно делать модальной
просто вызови при нажатии определенной кнопки метод Close
А чтобы поймать например нажатие Enter, можно сделать обработчик на форму.
Способов много.

REA (2002-10-21 12:09:00) [2]
А зачем такой изврат? Передай параметры нужные в форму и все. Код можно перебросить в форму или отдельный модуль. В конце концов можно передать Callback.
А ты уверен что за то время пока ты выполняешь "некоторый код" пользователь не произведет какие-то действия?

Ерик (2002-10-21 12:03:00) [3]
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.

Skier (2002-10-21 11:47:00) [4]
>Ерик

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

Игорь Шевченко (2002-10-21 11:45:00) [5]
Посмотреть в Program Files/Borland/Delphi/Source/VCL/Forms.pas реализацию ShowModal

Ерик (2002-10-21 11:44:00) [6]
Игорь Шевченко © (21.10.02 11:29):
begin
Form2 := TForm2.Create(Application);
Form2.Show;
...
ХочуМодальнуюФорму(Form2);
Form2.Free();
end;

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

Игорь Шевченко (2002-10-21 11:29:00) [7]
Возможно

Skier (2002-10-21 11:24:00) [8]
ShowModal ? :)

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »