Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Открытие Form3 при закрытии Form2.ShowModal / 5 сообщений из 5, страница 1 из 1
28.03.2003, 14:06
    #32129040
Sergey_S
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытие Form3 при закрытии Form2.ShowModal
Вопрос такой:
Открыта Form2 в режиме ShowModal, на этой форме есть кнопка при нажатии на которую открывается новая форма Form3, но при этом Form2 должна закрыться.
...
Рейтинг: 0 / 0
28.03.2003, 14:14
    #32129046
pkarklin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытие Form3 при закрытии Form2.ShowModal
Я бы открывал форму 3 не из формы 2, а из формы 1, которая открывает форму2. Тогда в обработчике кнопки на форме 2 можно написать типа

Код: plaintext
ModalResult := mrOk


или что тебе нужно, а в форме1 написал

Код: plaintext
1.
IF Form2.ShowModal = mrOk THEN
  Form3.ShowModal;
...
Рейтинг: 0 / 0
31.03.2003, 18:08
    #32130466
Sergey_S
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытие Form3 при закрытии Form2.ShowModal
а в форме 1 куда это вставить
IF Form2.ShowModal = mrOk THEN
Form3.ShowModal;
...
Рейтинг: 0 / 0
31.03.2003, 18:11
    #32130468
pkarklin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытие Form3 при закрытии Form2.ShowModal
>а в форме 1 куда это вставить

Ну е мое, форму Form2 ты как открываешь. Сам же писал Открыта Form2 в режиме ShowModal . Где-то же ты пишешь Form2.ShowModal. Вот здесь и поправь.
...
Рейтинг: 0 / 0
01.04.2003, 08:18
    #32130603
Sergey_S
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытие Form3 при закрытии Form2.ShowModal
Понял в чем я ошипся, я после ModalResult := mrOk писал еще Close...
За помощь спасибки всем...
...
Рейтинг: 0 / 0
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Открытие Form3 при закрытии Form2.ShowModal / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]