Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Проблема с ShowModal, Проблема с модальной формой 
V
    Опции темы
MItornaDOS
Дата 29.2.2008, 18:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 55
Регистрация: 1.8.2007
Где: UA

Репутация: нет
Всего: нет



Народ, помогите плз...

из главного окна вызываю форму:
Код
  Application.CreateForm(TForm123, Form123);
  Form123.ShowModal;

Потом, на форме 123 есть BitBtn2, свойство onClick его:
Код
procedure TForm123.BitBtn2Click(Sender: TObject);
begin
//
end;


при нажатии на BitBtn2 в форме 123 форма закрывается

програму проверял: никаких Visible формы нет, Destroy тоже нет

причём при
Код
  Application.CreateForm(TForm123, Form123);
  Form123.Show;
всё абсолютно нормально!


Ну что это такое... не пойму smile  smile  smile  smile  smile 


PS при замене BitBtn на Button всё нормально, но хотелось бы BitBtn...
PM MAIL ICQ   Вверх
THandle
Дата 29.2.2008, 19:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 65
Всего: 372



MItornaDOS, Kind этой кнопки случйно не равен bkClose?
PM   Вверх
lukas
Дата 29.2.2008, 19:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 771
Регистрация: 23.2.2007

Репутация: 3
Всего: 15



или ModalResult должен = mrNone


--------------------
http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.
PM MAIL WWW   Вверх
MItornaDOS
Дата 29.2.2008, 20:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 55
Регистрация: 1.8.2007
Где: UA

Репутация: нет
Всего: нет



Цитата(THandle @ 29.2.2008,  19:01)
MItornaDOS, Kind этой кнопки случйно не равен bkClose?

нет, bkNo
но есть ещё кнопка bkOK, которая что-то делает (Close либо Hide там нет, проверял) но после завершения процедуры тот же результат
PM MAIL ICQ   Вверх
MItornaDOS
Дата 29.2.2008, 23:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 55
Регистрация: 1.8.2007
Где: UA

Репутация: нет
Всего: нет



Всё народ, я нашёл в чём проблема! smile 
спасибо lukas, что напомнил про ModalResult smile 
при изменения Kind'а   ModalResult тоже изменяется, а если он не 'None' то форма после нажатия этой кнопки вылетает smile 
учту на будуйщее smile 
всем спасибоsmile
PM MAIL ICQ   Вверх
bems
Дата 29.2.2008, 23:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88



ModalResult ей сделай mrNone (не путать с mrNo)

Добавлено через 45 секунд
гыыы я тормоз


--------------------
Обижено школьников: 8
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0708 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.