Клонирование компонентаDelphi , Компоненты и Классы , КомпонентыКлонирование компонента
Оформил: DeeCo { This code shows how to clone a TPanel (Panel1) You can do it with any other component Dieser Code zeigt, wie ein TPanel (Panel1) geklont werden kann. Das funktioniert naturlich auch mit anderen Komponenten } procedure TForm1.Button1Click(Sender: TObject); var ms: TMemoryStream; s: string; p, temp: TPanel; x,y: Integer; begin ms := TMemoryStream.Create; try temp := panel1; s := panel1.Name; panel1.Name := ''; try ms.WriteComponent(temp); ms.Position := 0; p := TPanel.Create(Self); ms.ReadComponent(p); with p do begin x := panel1.Left; y := panel1.Top; Inc(x, 5); Inc(y, 5); SetBounds(x, y, Width, Height); Parent := Self; Name := Format('Panel%d_%d', [x, y]); end; finally temp.Name := s; panel1 := temp; end finally ms.Free; end; { finally } end; Статья Клонирование компонента раздела Компоненты и Классы Компоненты может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Компоненты ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |