|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
||||
|
||||
выход: либо перед вызовом ShowModal (да и вообще перед созданием формы) проверять значение, либо PostMessage:
Код:
type TForm2 = class(TForm) procedure FormActivate(Sender: TObject); procedure TForm2.FormActivate(Sender: TObject); begin if Tag=0 then PostMessage(Handle, WM_CLOSE, 0, 0); end; Пишу программы за еду. __________________ |
#17
|
|||
|
|||
Всем желающим посмотреть проблему в кодах программы, выкладываю исходники. Правда без базы данных, как обещал. К проблеме база данных не имеет никакого отношения. Вопрос остаётся. Почему, и что надо сделать, чтобы из программы выйти именно в обработчике события FormActivate.
Использую Borland Developer Studio 2006. Вдруг это важно. Последний раз редактировалось VANNIK002, 11.07.2011 в 14:56. |
#18
|
||||
|
||||
Цитата:
Пишу программы за еду. __________________ |
#19
|
|||
|
|||
Всем спасибо.
Я получил ответ на свой вопрос. NumLockу, Вам спасибо за посты #15 и #16. Для меня вариант 2 предпочтительнее. Остался вопрос: почему в разных местах программы Close работает по разному. Ну это больше для самообразования. Если кто нибудь ответит по поводу исходников, с удовольствием прочитаю. ARTу. Посмотрите пожалуйста мои исходники. Там увидите, что Form2.Close не всегда работает. Для меня это до сих пор странно, хоть что то и поня. Еще раз всем спасибо. Последний раз редактировалось VANNIK002, 12.07.2011 в 12:51. |
#20
|
|||
|
|||
Тебе нужно написать еще один метод, например Execute. Как это сделано в Диалогах.
Код:
procedure TF_AddValueParam.Execute; begin .... .... if n = 0 then Exit; ShowModal; .... .... end; Код:
F_AddValueParam := TF_AddValueParam.Create(Self); F_AddValueParam.User := User; F_ValueList.Visible := False; F_AddValueParam.Execute; // <<==-- здесь F_AddValueParam.Free; F_ValueList.Visible := True; |
#21
|
|||
|
|||
VANNIK002, не могу посмотреть исходники. Я не могу качать с этого сайта
|