Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.16;
Скачать: CL | DM;

Вниз

Сообщение об ошибке   Найти похожие ветки 

 
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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.013 c
4-50161
Vlad_NOJB
2002-03-14 19:38
2002.05.16
Как определить virtual-key code?


1-49944
Reticent
2002-05-03 13:16
2002.05.16
Совсем простой вопрос :)


1-49994
Windeus
2002-04-30 07:38
2002.05.16
Работа с текстом.


1-49917
rdm
2002-05-02 17:42
2002.05.16
PasswordChar в TEdit


14-50134
VictorT
2002-04-05 11:42
2002.05.16
Подскажите, где скачать програмку...