Как получить (и записать) значение свойства Menu у формы
Int23 © (2008-10-22 16:36:00)
Нужно значение свойства получить в виде Form2.MainMenu1 затем
сохранить его в файл, а в последствии считать с файла и присвоить в
таком же виде. Пробовал через GetPropValue, но в таком виде мне
возвращается ссылка на компонент
Int23 (2008-10-22 17:13:00) [1]
Написал. Мож кому пригодится
function ExtGetFullComponentName(Component: TComponent):
string;
var
CurrOwner : TComponent;
begin
if (Component <> nil) and (Component.Name
<> '') then
begin
CurrOwner := Component.Owner;
Result := Component.Name;
while Assigned(CurrOwner) and
(CurrOwner<>Forms.Application) do
begin
Result := CurrOwner.Name + '.' + Result;
CurrOwner := CurrOwner.Owner;
end
end
else
Result := '';
end;
Наверх 
ЧАТ |
Орешник |
|
