????????????

← →
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]

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

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

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

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