criar uma cópia do form???
já tenho um projeto pronto... e tenho que inserir varios iguais apenas trocando algums valores... como faço para copiar o from total já com o código...
Obrigado
Obrigado
Markinhos
Curtidas 0
Respostas
Rômulo Barros
11/08/2003
file/new/other
procure a guia de seu projeto.
Escolha o formulário e a opção ´copy´.
pronto
procure a guia de seu projeto.
Escolha o formulário e a opção ´copy´.
pronto
GOSTEI 0
Markinhos
11/08/2003
Infelizmente não funcionou... apenas a funcão para herdar fica habilitada... as outras não... e como meu formulário contém um notebbok ele diz não poder.... o que devo fazer...
Obrigado
Obrigado
GOSTEI 0
Ricardo.vano
11/08/2003
No formulário, clique com o botão direito e selecione a opção ´Add To Repository´...preencha todos os dados conforme desejado e selecione a pasta onde ele será armazenado.
Feito isso, no Delphi clique em ´File´, selecione ´New´, depois ´Other´ e vá até a pasta em que seu Formulário foi salvo.
Desta forma você poderá copiar ou herdar as características do formulário. :D
Feito isso, no Delphi clique em ´File´, selecione ´New´, depois ´Other´ e vá até a pasta em que seu Formulário foi salvo.
Desta forma você poderá copiar ou herdar as características do formulário. :D
GOSTEI 0
Massuda
11/08/2003
Você pode dar um [b:e158cc8d92]File/Save As[/b:e158cc8d92] no form que você quer duplicar para criar uma nova unit com um nome diferente; lembre de alterar o nome do form para evitar de ter dois forms de mesmo nome no projeto.
Infelizmente, isso muda também o nome da unit na lista de units de seu projeto, de modo que a unit original fica fora do projeto. Então, você usa [b:e158cc8d92]Project/Add to project[/b:e158cc8d92] para incluir novamente a unit original no seu projeto.
Infelizmente, isso muda também o nome da unit na lista de units de seu projeto, de modo que a unit original fica fora do projeto. Então, você usa [b:e158cc8d92]Project/Add to project[/b:e158cc8d92] para incluir novamente a unit original no seu projeto.
GOSTEI 0
Felipe Z
11/08/2003
Crie um Button
var
Ms : TMemoryStream;
NewForm : TForm1;
begin
Ms := TMemoryStream.Create;
Try
Ms.WriteComponent(Form1);
NewForm := TForm1.CreateNew(Application);
Ms.Position := 0;
Ms.ReadComponent(NewForm);
NewForm.Show;
Finally
Ms.Free;
end;
var
Ms : TMemoryStream;
NewForm : TForm1;
begin
Ms := TMemoryStream.Create;
Try
Ms.WriteComponent(Form1);
NewForm := TForm1.CreateNew(Application);
Ms.Position := 0;
Ms.ReadComponent(NewForm);
NewForm.Show;
Finally
Ms.Free;
end;
GOSTEI 0