Criar e Destruir Objetos Dinamicamente
26/12/2003
0
no clique do botao:
procedure TForm1.Button1Click(Sender: TObject);
var
Formulario: TForm;
Relatorio: TRLReport;
Titulo: TRLLabel;
begin
Formulario := TForm.Create(Application);
Relatorio := TRLReport.Create(Application);
Relatorio.Parent := Formulario as TForm;
Formulario.InsertComponent(Relatorio);
Relatorio.PreviewModal;
end;
quando o projeto estiver sendo executado, apos o clique do botao vai aparecer o relatorio.. ai se fecha o relatorio e apos o fomulario...
quando fechar o form vai dar pau por causa dos componentes ou formulario criado. Como resolver ?
OBS: To usando Fortes Report, portanto a RLReport deve ser declarada se alguem quiser compilar.
procedure TForm1.Button1Click(Sender: TObject);
var
Formulario: TForm;
Relatorio: TRLReport;
Titulo: TRLLabel;
begin
Formulario := TForm.Create(Application);
Relatorio := TRLReport.Create(Application);
Relatorio.Parent := Formulario as TForm;
Formulario.InsertComponent(Relatorio);
Relatorio.PreviewModal;
end;
quando o projeto estiver sendo executado, apos o clique do botao vai aparecer o relatorio.. ai se fecha o relatorio e apos o fomulario...
quando fechar o form vai dar pau por causa dos componentes ou formulario criado. Como resolver ?
OBS: To usando Fortes Report, portanto a RLReport deve ser declarada se alguem quiser compilar.
Danielclubedelphi
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)