Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Обращение к классу [D6, WinXP]


Страницы:   1 2 3 4 5

webpauk ©   (2006-05-18 13:49:00) 

 TUser = class
 private
   fLabel: array of TLabel;
 public
   constructor Create;
   destructor Destroy; override;
   procedure DoSomething;
 end;


есть такой класс. А как из отдельно взятого fLabel обратиться к TUser.DoSomething?


Сергей М.   (2006-05-18 14:13:00) [81]


> webpauk   (18.05.06 14:11) [11]


И при этом ты сходил в гости к соседу через Китай)


webpauk   (2006-05-18 14:11:00) [82]

кароче, сделал я TmyLabel(TLabel), где и прописал в Public declarations: ClassCreated: Pointer;
а в constructor Tuser.Create определил ClassCreated:=Self;
и теперь TmyLabel(fLabel.ClassPointer).ClassName показывает Tuser.
Вот так вот.


MBo   (2006-05-18 14:06:00) [83]

Пардон, невнимательно прочитал вопрос, так что про Self - не в струю, наверно.

Автор, поясни вопрос поподробнее.


webpauk   (2006-05-18 14:04:00) [84]


> MBo ©   (18.05.06 14:01) [7]

Self.ClassParent = Tobject


Сергей М.   (2006-05-18 14:02:00) [85]


> webpauk   (18.05.06 13:49)


Сам то понял что спросил ?


MBo   (2006-05-18 14:01:00) [86]

Ыуда => Self (в методах класса)

Замечательная транслитерация получилась ;)))


webpauk   (2006-05-18 14:01:00) [87]

вопрос такой:
как из конкретного Tlabel, расположенного на форме обратиться к методам класса из которого родился Tlabel?


Плохиш   (2006-05-18 13:59:00) [88]


> А как из отдельно взятого fLabel обратиться к TUser.DoSomething?

Например так "Ну ты ... в натуре ... чувак ... я к тебю общаюсь ... ну ты понЯл..."

PS. Что так до сих пор не научился правильно вопросы формулировать?


webpauk   (2006-05-18 13:58:00) [89]


> Сергей М. ©   (18.05.06 13:57) [3]

:-(
нету


Сергей М.   (2006-05-18 13:57:00) [90]


> webpauk   (18.05.06 13:56) [2]


В смысле 30 серебреников готовь в кач-ве оплаты консультации))


webpauk   (2006-05-18 13:56:00) [91]

Удалено модератором


MBo   (2006-05-18 13:55:00) [92]

Ыуда


Страницы:   1 2 3 4 5

Наверх

Титульная страница Поиск, карта сайта Написать письмо