Форум: "Основная";
Текущий архив: 2002.05.16;
Скачать: [xml.tar.bz2];
ВнизСообщение об ошибке Найти похожие ветки
← →
Samvel (2002-05-02 16:57) [0]Подскажите пожалуйста
Почему при многократном (7-9раз)открытии и закрытии окна (вспомогательного) программа выдает следуещее сообщение
"параметр задан не верно" и что с этим делать
Спасибо.
Самвел
← →
PaRL (2002-05-02 17:00) [1]Дак как бы код надо. Если бы у тебя было бы просто две формы, то никакой ошибки нет.
← →
Samvel (2002-05-02 17:36) [2]я могу отправить код скажите куда?
← →
PaRL (2002-05-02 18:20) [3]Никуда не надо отправлять, пишите здесь.
← →
Song (2002-05-02 18:21) [4]Эта ошибка интерпретируется так: "Системе сусущественно не хватает ресурсов". Обычные условия: большой проект+много программ в форме+IDE+возможно используется Rx. Возможно не освобождаете память и с открытием новой она всё увеличивается. Код нужно постить сюда.
← →
Samvel (2002-05-03 11:28) [5]Как код написать здесь ведь я не знаю что именно вставить потому что не представляю где находится ошибка (не пиасть ведь здесь весь код), но суть такова:
на главной форме есть несколько кнопок которые открывают другие формы (такие мастера дополнения, изменения БД) которые действительно очень нагружены компонентами (и еще там много кнопок MrCancel и MrOk на которые я повесил разные обработчики событий может дело в них), вот так они открываются
procedure TForm1.SpeedButton2Click(Sender: TObject);
var Form3:TForm;
begin
Form3:= TForm.Create(Owner);
form3.ShowModal;
end;
а вот так закрываются
procedure TForm3.BitBtn26Click(Sender: TObject);
begin
form3.free;
end;
но после закрытия (кстати как проверить закрылась ли форма и освободила ли она ресурсы компа) 7-9 раз возникают разные глюки
так в чем же дело?
P.S. Извените если что не так объяснил или чего-то не понял - я как вы наверное догадались вуз по програмированию не заканчивал поэтому проявите снисхождение.
← →
Anatoly Podgoretsky (2002-05-03 11:41) [6]Нельзя освобождать форму из обработчика самой формы!
Делай так
procedure TForm1.SpeedButton2Click(Sender: TObject);
var
Form3: TForm;
begin
Form3:= TForm.Create(Owner);
try
Form3.ShowModal;
finally
Form3.Free;
end;
end;
И подумай а нужна ли тебе переменная Form3
← →
Samvel (2002-05-03 11:59) [7]Спасибо Анатолий
Я действительно неправильно использовал процедуру Free теперь только понял, что касается нужна ли переменная то да, без нее глючит сильно (не буду вдаваться в подробности)
Самвел
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.05.16;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.006 c