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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Не рабоает Close 
V
    Опции темы
MItornaDOS
Дата 20.3.2008, 09:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Кто знает: по каким причинам процедура Close не работает?
PM MAIL ICQ   Вверх
Exai1e
Дата 20.3.2008, 09:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



MItornaDOS, всмысле не работает ? че в событие onclose не заходит ? О.о "этаважи проста не можить бить", поподробнее пожалуйста smile
зы. Че у тя в OnCloseQuery написанно ?

Это сообщение отредактировал(а) Exai1e - 20.3.2008, 09:05


--------------------
"Решение зависит от выбранного геморроя" © Snowy
"у нас как в армии - либо работает, либо так и задумано"
PM MAIL ICQ   Вверх
THandle
Дата 20.3.2008, 09:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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



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

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



MItornaDOS, как, где вызываешь? 
PM   Вверх
Poseidon
Дата 20.3.2008, 11:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


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

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



Цитата(MItornaDOS @  20.3.2008,  09:02 Найти цитируемый пост)
Кто знает: по каким причинам процедура Close не работает?
 Её блокируют smile



--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
mmvds
Дата 20.3.2008, 12:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



У меня был случай, когда close не работал из-за того что пытался из дочерней формы закрыть главную, а вообще лучше код покажи.
PM MAIL ICQ   Вверх
MItornaDOS
Дата 20.3.2008, 17:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



эмм.. я зв процедуре исполняю некие действия, и потом мне бывает нужно выйти из этой формы
что-то типо 
Код

procedure TFormPl.BitBtn1Click(Sender: TObject);
begin
  If Red Then
    Begin
      ...
      Close;     //<<< не работает
    End;
  ...        // << у мну так построено, что здесь нельзя быть, если сработал преждний иф, и поэтому выбивает ошибка.
  Close;
end;

 smile  smile  smile  smile  smile 
PM MAIL ICQ   Вверх
Poseidon
Дата 20.3.2008, 17:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


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

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



А если указать конкретно FormPl.Close ? А если Application.Terminate ?

Добавлено через 1 минуту и 2 секунды
Все-таки поведение не стандартно. Мог бы ты прикрепить проектик, в котором у тебя это не работает?


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
MItornaDOS
Дата 20.3.2008, 18:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



у мну проектик на 100 метров с лишним...smile
PM MAIL ICQ   Вверх
Albinos_x
Дата 20.3.2008, 19:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

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



хм...тебе нужно выйти из процедуры или закрыть форму?
если закроешь форму, процедура не остановится... а Close может выполниться только по окончанию работы процедуры... т.к. сообщение на закрытие форма не примет в это время...
и вообще в приведённом коде не вижу причин расставлять столько клосов...
попробуй конечно после клосов экситы расставлять, но алгоритм работы кода изменится...
Код
  If Red Then
    Begin
      ...
      Close;    
     Exit;
    End;
  ...        
  Close;



--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
MItornaDOS
Дата 20.3.2008, 21:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



нет, мне подойдёт думаю...
ща...
подошло, спасиб...
PM MAIL ICQ   Вверх
Albinos_x
Дата 20.3.2008, 21:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

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



не за что


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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


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

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


 




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


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

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