Клонирование свойств элемента управленияDelphi , Компоненты и Классы , Свойства и СобытияКлонирование свойств элемента управления
Оформил: DeeCo uses TypInfo; function CloneProperty(SourceComp, TargetComp: TObject; Properties: array of string): Boolean; var i: Integer; begin Result := True; try for i := Low(Properties) to High(Properties) do begin if not IsPublishedProp(SourceComp, Properties[I]) then Continue; if not IsPublishedProp(TargetComp, Properties[I]) then Continue; if PropType(SourceComp, Properties[I]) <> PropType(TargetComp, Properties[I]) then Continue; case PropType(SourceComp, Properties[i]) of tkClass: SetObjectProp(TargetComp, Properties[i], GetObjectProp(SourceComp, Properties[i])); tkMethod: SetMethodProp(TargetComp, Properties[I], GetMethodProp(SourceComp, Properties[I])); else SetPropValue(TargetComp, Properties[i], GetPropValue(SourceComp, Properties[i])); end; end; except Result := False; end; end; procedure TForm1.Button1Click(Sender: TObject); begin if CloneProperty(Button1, Button2, ['Left', 'Font', 'PopupMenu', 'OnClick']) then ShowMessage('OK'); end; Статья Клонирование свойств элемента управления раздела Компоненты и Классы Свойства и События может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Свойства и События ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |