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

← →
anbezr (2003-02-04 16:57) [0]

Привет!
есть следующее описание
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;

← →
Внук © (2003-02-04 17:08) [1]

Поток сознания :)

← →
anbezr (2003-02-04 17:17) [2]

rrrrrrrrrrrrrrrrrrrrrrr

← →
Юрий Федоров © (2003-02-04 17:21) [3]

В орешник?

← →
anbezr (2003-02-04 17:25) [4]

не смотрите на опечатку (Data Value)
но на самом деле всё просто, но под вечер это трудно понять

← →
gsu © (2003-02-04 17:27) [5]

???

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

← →
anbezr (2003-02-04 17:30) [6]

я просто опечатался :))))))))))))))))))))))
хватит работать - иду домой

← →
Романов Р.В. © (2003-02-04 17:57) [7]

Если не обращать внимания на остальной бред

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:59) [8]

да, такая проверка есть

Что то ее не видно. Возможно там еще много чего есть что здесь не приведено.

>> Если не обращать внимания на остальной бред
Если это опять ко мне, то предупреждаю, что вы можете сесть не на тот поезд, потому ... и потом, это не вежливо

gsu © (04.02.03 18:04)

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

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

Как вызвать собственный метод Найти похожие ветки