Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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
3-49841
Fishka
2002-04-18 12:44
2002.05.16
InterBase и Gbak


4-50157
star
2002-01-10 10:24
2002.05.16
Как вытащить текст из чужого RichEdit ?


3-49833
olden
2002-04-18 16:00
2002.05.16
динамическое создание параметров SQL-запроса


3-49863
Chuvi
2002-04-19 12:28
2002.05.16
Подскажите пожалуста почему не работает эта чачть запроса ?


14-50106
anod
2002-04-06 00:12
2002.05.16
Подскажите





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский