Сообщение об ошибке

← →
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. Извените если что не так объяснил или чего-то не понял - я как вы наверное догадались вуз по програмированию не заканчивал поэтому проявите снисхождение.

Нельзя освобождать форму из обработчика самой формы!
Делай так

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 теперь только понял, что касается нужна ли переменная то да, без нее глючит сильно (не буду вдаваться в подробности)
Самвел

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