Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Закрытие модальной формы [D7, WinXP]


NQ34 ©   (2005-05-31 01:01:00) 

Я в Form1 даю команду покать Form2 модальной, но вот на форме 2 у меня есть кнопочка закрыть, которая должна по идее закрывать Form2 и переходить к Form1, но вот как это сделать я уже всё препробовал!!!
Если кто знает напишите код.
...
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
if Key = VK_RETURN then begin
Form2 := TForm2.Create(Application);
Form2.ShowModal;
Form2.Free;
end;
end;


Ega23   (2005-05-31 09:42:00) [1]

TButton.ModalResult

Или

procedure TForm1.ButtonClick(Sender : TObject);
begin
ModalResult:=mrCancel;
end;


Anatoly Podgoretsky   (2005-05-31 09:03:00) [2]

Кнопку надо нажать.


Marser   (2005-05-31 01:07:00) [3]


> на форме 2 у меня есть кнопочка закрыть, которая
> должна по идее закрывать Form2 и переходить к Form1,
> но вот как это сделать я уже всё препробовал!!!

TButton.ModalResult


Наверх

Титульная страница Поиск, карта сайта Написать письмо