Динамическое связывание |
Можно создать область, не связанную с интерфейсом или переменной:
embedded ID_панели interface; end;
Такую область можно связать динамически с любым интерфейсом или переменной с помощью функций BindEmbeddedInterface и UnBindEmbeddedInterface.
Пример:
BindEmbeddedInterface (scGood, 'AktUsl'); // главное окно BindEmbeddedInterface (scGood, 'AktUsl', 'w1'); // окно w1 Var S : string; S := 'AktUsl.w1'; BindEmbeddedInterface (scGood, S); Var S : string; S := 'AktUsl'; BindEmbeddedInterface (scGood, S, 'w1'); Var v1 : AktUsl; BindEmbeddedInterface (scGood, v1, 'w1'); // через переменную UnBindEmbeddedInterface (scGood); // отцепить панель
Динамическое связывание интерфейсной переменной и встроенного интерфейса