Текущий архив: 2003.05.01;
Скачать: 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 вся ветка
Текущий архив: 2003.05.01;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.01 c
