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

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

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

Как вызвать собственный метод

anbezr © (2003-02-04 16:57:00)
Привет!
есть следующее описание
type
TMyControl = class (TWinControl)
public
property InputData;
procedure MyProc;
end;
как я могу обратиться к полям и методам из родительского кода
type
Form1 = class(TForm)
MC1: TMyControl
т.е я пробовал:
for i := 0 to ControlsCount-1 do
begin
(Controls[i] as TMyControl).InputValue := 0; //ошибка здесь
end;

gsu (2003-02-04 18:19:00) [1]
>> Романов Р.В. © (04.02.03 18:17)
спасибо за объяснение, извиняюсь за мелочность, миру мир (-:|~

Романов Р.В. (2003-02-04 18:17:00) [2]
gsu © (04.02.03 18:04)

Почему это к вам. Вовсе нет.
Со всей ответственностью заявляю что мои постинги не имеют к вам никакого отношения.

Я имел в виду то что
Во первых
procedure MyProc;
не объявлен способ доступа к этому свойству read/write
Во вторых
Непонятно как MC1: TMyControl попал в published раздел TForm1
В третих
непонятно зачем перебирать все контролы когда есть указатель на нужный MC1

gsu (2003-02-04 18:04:00) [3]
>> Если не обращать внимания на остальной бред
Если это опять ко мне, то предупреждаю, что вы можете сесть не на тот поезд, потому ... и потом, это не вежливо

Романов Р.В. (2003-02-04 18:02:00) [4]
Что то ее не видно. Возможно там еще много чего есть что здесь не приведено.

anbezr (2003-02-04 17:59:00) [5]
да, такая проверка есть

Романов Р.В. (2003-02-04 17:57:00) [6]
Если не обращать внимания на остальной бред

for i := 0 to ControlsCount-1 do
begin
// (Controls[i] as TMyControl).InputValue := 0; //ошибка здесь
// Тут бы проверочка не помешала. Зачем хватать первый
// попавшийся контрол и пытаться запихать ему в InputValue
if Controls[i] is TMyControl then ...
end;

anbezr (2003-02-04 17:30:00) [7]
я просто опечатался :))))))))))))))))))))))
хватит работать - иду домой

gsu (2003-02-04 17:27:00) [8]
???

mm:=TMyControl.Create ...
mc.InputValue := 0
...
FreeAndNil(mc);

anbezr (2003-02-04 17:25:00) [9]
не смотрите на опечатку (Data Value)
но на самом деле всё просто, но под вечер это трудно понять

Юрий Федоров (2003-02-04 17:21:00) [10]
В орешник?

anbezr (2003-02-04 17:17:00) [11]
rrrrrrrrrrrrrrrrrrrrrrr

Внук (2003-02-04 17:08:00) [12]
Поток сознания :)

Наверх

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