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

Вызов метода класса   Найти похожие ветки 

← →
anbezr   (2003-04-19 13:23) [0]

Привет!
имею несколько компонетов, потомков разных классов(TGpaphicControl, TCutomControl). у всех у них есть метод Init.
как его вызвать при переборке контролов формы.
for i := 0 to ControlCount - 1 do
begin
if (условие выполняется) then
begin
Controls[i].Init;
end;
end;
пробовал так, но не получилось
type MyControl = class(TControl)
public
procedure Init;
end;
...
(Controls[i] as TMyControl).Init;
говорит, что не получилось преобразовать типы.
Спасибо

---

← →
anbezr   (2003-04-19 14:30) [1]

обожаю Delphi
InitMethod := FindField(Controls[i], MODBUS_DEVICE_SIGN);
if (InitMethod.Code <> nil) and (InitMethod.Data<>nil) then
begin
TMethod(InitProc).Code := InitMethod.Code;
TMethod(InitProc).Data := InitMethod.Data;
InitProc(DevList);

---

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

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



Память: 0.44 MB
Время: 0.009 c