Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Клонирование формы

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

procedure TForm1.Button1Click(Sender: TObject);
 var
   ms: TMemoryStream;
   newform: TForm1;
 begin
   ms := TMemoryStream.Create;
   try
     ms.WriteComponent(Form1);
     newform := TForm1.CreateNew(Application);
     ms.Position := 0;
     ms.ReadComponent(newform);
     { show the new form. Note that it will appear exactly on top of the 
     original! You may want to change its Left and Top property to move it 
     a bit. 

     Zeigt die neue Form. Die neue Form erscheint genau oberhalb der 
     original form. Die Left, Top Properties mussen evtl. noch angepasst werden 
    }
     newform.Show;
   finally
     ms.Free
   end;
 end;
Проект Delphi World © Выпуск 2002 - 2024
Автор проекта: USU Software
Вы можете выкупить этот проект.