Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/15: Рейтинг темы: голосов - 15, средняя оценка - 4.67
10 / 10 / 3
Регистрация: 19.03.2010
Сообщений: 679
Записей в блоге: 2

Ошибка при попытки закрыть форму! Оо

26.05.2011, 15:23. Показов 3013. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Привет Ребят) Помогите решить проблему))

Есть главная форма, в ее событии FormShow, пишу вот такой код
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
try
    version := iniFile.ReadString('Version', 'Version', '1.0.0.0');
    new := iniNew.ReadString('Version', 'Version', '1.0.0.0');
 
    if version <> new Then
    begin
      If MessageDlg('Äîñòóïíà íîâàÿ âåðñèÿ. Îáíîâèòü?',mtInformation, mbOKCancel, 0) = 1 Then
      begin
        FormUpdate.Show; //Открываю форму!!!! 
      end;
    end;
  finally
    iniFile.Free;
    iniNew.Free;
В форме FormUpdate, в ее событии FormActivate прописан вот такой код!
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TFormUpdate.FormActivate(Sender: TObject);
var
  i: integer;
begin
  For i := ProgressBar1.Min To ProgressBar1.Max Do
  begin
    ProgressBar1.Position := i;
    sleep(10);
  end;
  self.Close;
  ShowMessage('Успешно обновлен!');
end;
Дык вот, сперва выполняется код 1, потом открывается форма и выполняется код 2) А потом вылетает вот такая ошибка

"cannot change visible in onshow or onhide"!!! ? Помогите разобраться)
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
26.05.2011, 15:23
Ответы с готовыми решениями:

Закрыть форму при неудачной авторизации в приложении
procedure TForm16.Image1Click(Sender: TObject); begin if Edit1.Text = '123456' then begin form16.Hide; Form1.show ...

Строка: Почему выходит ошибка при попытки вывода содержимого индекса массива?
Здравствуйте! Подскажите пожалуйста, почему выходит ошибка при попытки вывода содержимого индекса массива? if(sequence =...

Закрыть 2 форму при этом не закрыть весь проект
Нужна помощь!!! как сделать так что бы в 1 форме выходила 2 а после,2 форма закрывалась при нажатии кнопки но не выходила с проекта...

4
 Аватар для deathNC
1905 / 1016 / 123
Регистрация: 08.12.2009
Сообщений: 2,792
Записей в блоге: 2
26.05.2011, 15:28
new - это функция, ты её не можешь использовать.
Это, наверно, равносильно тому, что ты объявишь переменную:
Delphi
1
2
var
  program: Integer;
Смени new на что-нибудь другое...
0
10 / 10 / 3
Регистрация: 19.03.2010
Сообщений: 679
Записей в блоге: 2
26.05.2011, 20:43  [ТС]
Хочешь сказать ошибка "cannot change visible in onshow or onhide" относится именно к этому?Оо)))

Не, дело не в этом.... еще будут мнения? Пожалуйста ребят
0
 Аватар для Mawrat
13116 / 5897 / 1708
Регистрация: 19.09.2009
Сообщений: 8,809
26.05.2011, 21:13
Потому что действие метода Close противоречит действию метода Show. Show пытается сделать форму видимой, а Close - наоброт.
---
И слово New всё-же не следует использовать в качестве идентификатора. Под именем New() определена процедура выделения памяти и инициализации типизированного указателя.
Ошибки не будет от того, что переопределено это имя - т. к. оно не является зарезервированным словом. Но тем не менее, надо стараться не перекрывать наиболее употребительные имена встроенных функций, переменных и констант.
0
10 / 10 / 3
Регистрация: 19.03.2010
Сообщений: 679
Записей в блоге: 2
26.05.2011, 21:33  [ТС]
Кароче я решил проблему)))) Использовал Form1.ShowModal )))
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
26.05.2011, 21:33
Помогаю со студенческими работами здесь

Закрыть форму/открыть другую форму при нажатии клавиши
Как сделать так что бы форма закрывалась или открывала другую форму нажатием любой клавиши. Спасибо заранее!

Cannot quit Microsoft Excel при попытки закрыть Excel
Cannot quit Microsoft Excel - кто-нибудь знает в результате чего возникает такое сообщение при попытки закрыть Excel? Как с этим бороться?

Закрыть форму при нажатии на кнопку
Цель: Форма на весь экран (по типу игры), и при нажатие на кнопку на форме, форма закрывалась. Как это реализовать? Получилось сделать на...

Закрыть форму при нажатии на кнопку
Всем здравствуйте. Не получается преодолеть проблему, подскажите пожалуйста. Нажатием кнопки запускаем процедуру закрытия формы. Не понимаю...

Закрыть форму при ее повторном запуске
Есть игра Крестики-нолики. В ней существует форма Mainform, имеющая меню и являющаяся MDI-контейнером для всех остальных форм, кроме формы...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Программный контроль заполнения реквизита табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .
wmic не является внутренней или внешней командой
Maks 02.04.2026
Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных в справочнике через динамический список
Maks 01.04.2026
Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа
Maks 01.04.2026
Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .
К слову об оптимизации
kumehtar 01.04.2026
Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр).
Hrethgir 31.03.2026
Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru