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

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

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

Обращение к переменной Public [D7, XP]

Alex7 © (2006-03-31 12:57:00)
Уважаемые мастера!
Подскажите, пожалуйста, как обратиться
к переменной pWC, объявленной в Form1,
как "Public" из другого модуля.
При этом, я хочу вместо Form1, ввести
другой указатель на эту форму.
Например:

----В Модуле Form1-----
unit UForm1;
.....................................
type
TForm1 = class(TForm)
....................................................
public
pWC: TWinControl;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
UB1.C1(Form1);
end;

----В Модуле B1-----
Procedure C1(Sender: TForm);
Var PF: TForm;
Begin
PF := GetParentForm(TControl(Sender)) as TForm;
Form1.pWc := PF.ActiveControl;
// PF.pWc := PF.ActiveControl; Хотелось бы так,
// но транслятор выдает, что pWC не декларируема.
End;
//----------------------------------
Что тут надо изменить. Спасибо

Ega23 (2006-03-31 13:45:00) [1]
Напиши class TMyCustomForm(TForm), определи в нём свою переменную, а в остальных формах наследуйся уже не от TForm, а от TMyCustomForm.

Eraser (2006-03-31 13:44:00) [2]

> Alex7 (31.03.06 13:42) [4]

> Дело в том, что я не хочу упоминать Form1 в модуле B1.

почему?

Плохиш (2006-03-31 13:44:00) [3]

> Alex7 (31.03.06 13:42) [4]
> Дело в том, что я не хочу упоминать Form1 в модуле B1.
> мб ввести TMyForm c описанием там pWC.

Может стоит сначала основы поучить?

Alex7 (2006-03-31 13:42:00) [4]
>PF := GetParentForm(TControl(Sender)) as TForm1;
>TForm1(PF).pWc
Дело в том, что я не хочу упоминать Form1 в модуле B1.
мб ввести TMyForm c описанием там pWC. но это будет
другая переменная. А мне нужна переменная, которая входит в Form1.

AbrosimovA (2006-03-31 13:06:00) [5]
TForm1(PF).pWc

Сергей М. (2006-03-31 13:03:00) [6]

> транслятор выдает, что pWC не декларируема

Действительно, переменная PF у тебя имеет тип TForm, а класс TForm не имеет ни поля ни свойства с идентификатором pWc.

Ega23 (2006-03-31 13:02:00) [7]

> PF := GetParentForm(TControl(Sender)) as TForm;

PF := GetParentForm(TControl(Sender)) as TForm1;

Наверх

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