![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Закрытие модальной формы [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