| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Помогите, не знаю в чем дело [D7]

Ярослав ©   (2006-04-18 09:56:00) 

На дочерней форме mdichild
Разместил несколько   RadioButton и хочу отключить или включить  их
RadioButton_a_ok_vi.Enabled:=False ;
Выскакивет ошибка
Access violation at address 0069FB44 in module 'AUDIT.exe'. Read of address 00000320.

Что характерно разместил (RadioButton_a_ok_vi.Enabled:=False ;
)  в обработчик события onclick кнопки работает ..

запихиваю в процедуру нет .
procedure  closed ;

begin
 Pr_zapr_Form.RadioButton_a_ok_vi.Enabled:=true ;
 Pr_zapr_Form.RadioButton_a_ok_rv.Enabled:=true ;

Pr_zapr_Form.GroupBox_Auditor.Enabled:=false ;
pr_zapr_form.GroupBox_Predpr.Enabled:=false ;
pr_zapr_form.GroupBox_Standart.Enabled:=false ;
pr_zapr_form.GroupBox_ta.Enabled:=false ;
pr_zapr_form.GroupBox_data.Enabled:=false ;
pr_zapr_form.Edit_a_error.Enabled:=false ;
end ;

Кто знает что тут может быть ..

---

Ярослав   (2006-04-19 12:06:00) [1]

я уже понял в чем косяк был

---

ЮЮ   (2006-04-18 11:19:00) [2]

убери строчку
var
  pr_zapr_form: TPr_zapr_Form
в модуле формы и источник ошибок выявится ещё на этапе компиляции

---

Плохиш   (2006-04-18 10:35:00) [3]

> begin
>    LockWindowUpdate(child.ClientHandle);
>
>   Child:= TPr_zapr_Form.Create(Application);


> begin
>   Pr_zapr_Form.RadioButton_a_ok_vi.Enabled:=true ;

Найди одно отличие.

PS. Сделай свою procedure  closed ;методом класса TPr_zapr_Form.

---

Ярослав   (2006-04-18 10:22:00) [4]

Почему же вызываю стандартно ..
{----------------------------}

   procedure CreatePr_zapr_Form;
var
 Child: TPr_zapr_Form ;

begin
   LockWindowUpdate(child.ClientHandle);

 Child := TPr_zapr_Form.Create(Application);

Child.Left:=10;
     Child.Top:=10;
    Child.Width:=804;
  Child.Height:=495;
    child.Constraints.MaxHeight:=483;
    child.Constraints.MaxWidth:=804 ;
    child.Constraints.MinHeight:= 483;
    child.Constraints.MinWidth:= 804 ;
   LockWindowUpdate(0);

 end;

{----------------------------}

Или вы имеете в веду что нужно в процедуре еще создавать Pr_zapr_Form

---

Плохиш   (2006-04-18 10:12:00) [5]

Pr_zapr_Formне создано.

---

Наверх