Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

???????????? [D7, XP]

Alex7 © (2006-03-25 11:32:00)
Уважаемые мастера! Пробую уточнить вопрос,
на который вчера не получил ответа, убрав лишнее

Есть форма с несколькими компонентами
"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; Спасибою

ЮЮ (2006-03-27 04:28:00) [1]
Какое отношение Form1, которая скорей всего, класса TForm1 = class(TForm),
имеет к классу TMyForm, чтобы так бесцеремонно приводить TMyForm(PF) да еще надеяться на наличие поля Actt_Old ???

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

Desdechado (2006-03-25 19:04:00) [2]
тема не оформлена

sniknik (2006-03-25 11:57:00) [3]
> Пробую уточнить вопрос,
> на который вчера не получил ответа, убрав лишнее
где ты лишнее взял...? и там не было полноценного кода, а тут еще урезано...

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

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

Наверх

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