Скачать: CL | DM;

????????????   Найти похожие ветки 

← →
Alex7   (2006-03-25 11:32) [0]

Уважаемые мастера! Пробую уточнить  вопрос,
на который вчера не получил ответа, убрав лишнее

Есть форма с несколькими компонентами
"DBLookupComboBox " , Навигаторм и переменной "Actt_Old".
Есть также Модуль "Р", где я собираю свои процедуры,
к которым обращаюсь из  различных  форм и модулей.

Схема работы такая:
----- в модуле "P"---------
Type  TMyForm = Class(TForm)
  Public Actt_Old: TControl;
end;

implementation
Var  PF: TForm;

Procedure DF(Sender: TObject);
Var PF: TForm;
begin
//     PF := GetParentForm(TControl(Sender)) as TForm;
//     TMyForm(PF).ActCont_Old := TDBLookUpComboBox(Sender);....(1)
     Form1.ActCont_Old := TDBLookUpComboBox(Sender);.................(2)
end;

Вопрос остается таким же: В варианте (2) все работает, а если (для обобщения)
заменить (2) на (1), то все формируется правильно, но при обращении
к навигатору (не имеющему отношения к процессу) выясняется, что он
разрушен ("access violation at address ...и т.д.)
При этом проверено PF-Form1; Спасибою

---

← →
sniknik ©   (2006-03-25 11:57) [1]

> Пробую уточнить  вопрос,
> на который вчера не получил ответа, убрав лишнее
где ты лишнее взял...? и там не было полноценного кода, а тут еще урезано...

если действительно хочеш решить,  то совет - "выдели проблему", например сделав отдельное приложение в котором не будет другого кода кроме того что думаеш приводит к ошибке (одна форма/одна процедура/два действия... одно приводит к глюку другое нет) и выложи его куданибудь, прямо проектом, или модуль (можно даже сюда если короткий)
причем пока будеш "выделять", возможно и сам решиш...

а вот так...
> не имеющему отношения к процессу
> При этом проверено PF-Form1;
на слово тебе верить... при обшем смысле "все делаю правильно, но почемуто ошибка", извини но это тут не принято.

---

← →
Desdechado ©   (2006-03-25 19:04) [2]

тема не оформлена

---

← →
ЮЮ ©   (2006-03-27 04:28) [3]

Какое отношение Form1, которая скорей всего, класса  TForm1 = class(TForm),
имеет к классу TMyForm, чтобы так бесцеремонно приводить TMyForm(PF) да еще  надеяться на наличие поля Actt_Old ???

if PF is TMyForm then
 TMyForm(PF).ActCont_Old := TDBLookUpComboBox(Sender);....(1)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.039 c