Объект и класс

← →
Старшеклассник (2005-09-30 04:34) [0]

Есть класс
TMyClas = class ...... public lbName : TLabel; imgFoto : TImage; btOpen : TButton; ClientBox : TGroupBox; .....
Есть готовая форма с лабелом, картинкой, кнопкой и групбоксом. Как после создания объекта Men : TMyClas назначить ему готовые контролы с формы?
Так? :
Men.lbName := Form1.Label1;Чтобы можно было работать с ними например так Men.lbName := "Вася Пупкин"; и на форме это отображалось?

← →
Джо © (2005-09-30 04:42) [1]

var MyClass: TMyClass; ... MyClass := TMyClass.Create; MyClass.lbName := Label1; MyClass.lbName.Caption := "Вася Пупкин";
Только поля делать паблик - дурной тон. Перемести их в private, а в public сделай свойства с соответствующими аксессорами (методами доступа).

← →
Старшеклассник (2005-09-30 04:53) [2]

Я так сделал. А не работает это:
Men.imgFoto.Picture := Img.Picture
В Img картинка, но в Men.imgFoto ничего не меняется.

← →
Джо © (2005-09-30 04:55) [3]

> В Img картинка, но в Men.imgFoto ничего не меняется.

А что там должно меняться?

← →
Думкин © (2005-09-30 07:08) [4]

> Men.imgFoto.Picture := Img.Picture

Men.imgFoto := Img

← →
Старшеклассник (2005-10-01 22:07) [5]

>>Джо © (30.09.05 4:42) [1]
>>var
>> MyClass: TMyClass;
>>...
>> MyClass := TMyClass.Create;
>> MyClass.lbName := Label1;
>> MyClass.lbName.Caption := "Вася Пупкин";

На форме кроме всего есть картинка Img. Я делаю так: MyClass.ImgFoto := Img; А потом мне нужно поменять картинку, для этого я положил на форму еще одну картинку ImgNone, сделал ее невидимой и в нее поместил нужную картинку. Меняю картинку так: MyClass.ImgFoto.Picture := ImgNone.Picture; а картинка в Img не меняется. Как сделать?

← →
Старшеклассник (2005-10-02 10:18) [6]

Спасибо, разобрался.

> Только поля делать паблик - дурной тон.

А что дурного в этом? Чем чревато?

Поля должны быть доступны только внутри класса. А называется это инкапсуляция.

Объект и класс Найти похожие ветки