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

Обращение к переменной 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.

почему?

---

← →
Плохиш ©   (2006-03-31 13:44) [6]

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

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

---

← →
Ega23 ©   (2006-03-31 13:45) [7]

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

---

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

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



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