Карта сайтаСсылкиКонтакты

Клонирование формы

PDF Печать
Статьи

Давайте рассмотрим, как клонировать форму.

Пример:


procedure TForm1.Button1Click(Sender: TObject); 
var 
  mstream: TMemoryStream; 
  novaForma: TForm1; 
begin 
  mstream := TMemoryStream.Create; 
  try 
    mstream.WriteComponent(Form1); 
    novaForma := TForm1.CreateNew(Application); 
    mstream.Position := 0; 
    mstream.ReadComponent(novaForma); 
    { Обратите внимание, что новая форма будет 
      отображаться точно сверху оригинала!
      Если хотите, можете изменить позицию новой ФОРМЫ} 
    novaForma.Show; 
  finally 
    mstream.Free 
  end; 
end; 

Автор: http://www.delphi3000.com


 

Добавить комментарий


Защитный код
Обновить