Обращение к переменной Public

← →
Alex7 (2006-03-31 12:57) [0]

Уважаемые мастера!
Подскажите, пожалуйста, как обратиться
к переменной 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:02) [1]

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

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

← →
Сергей М. © (2006-03-31 13:03) [2]

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

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

← →
AbrosimovA (2006-03-31 13:06) [3]

TForm1(PF).pWc

← →
Alex7 (2006-03-31 13:42) [4]

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

← →
Eraser © (2006-03-31 13:44) [5]

> Alex7 (31.03.06 13:42) [4]

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

почему?

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

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

Напиши class TMyCustomForm(TForm), определи в нём свою переменную, а в остальных формах наследуйся уже не от TForm, а от TMyCustomForm.

Обращение к переменной Public Найти похожие ветки