Fórum Criação de formulario #234313
25/05/2004
0
Caros Amigos,
Observem a procedure abaixo, de um formulário chamado FrmObjetos, herdado de FrmPadraoConsulta, quando pressiono o botão alterar:
procedure TFrmObjetos.Btn_AlterarClick(Sender: TObject);
begin
inherited;
try
Application.CreateForm(TFrmObjetosAt,FrmObjetosAt);
FrmObjetosAt.ShowModal;
finally
FrmObjetosAt. Release;
end;
end
A dúvida é a seguinte:
Tem como eu substituir TFrmObjetosAt e FrmObjetosAt por duas variáveis
para essa procedure ficar no formulário FrmPadraoConsulta?
Observem a procedure abaixo, de um formulário chamado FrmObjetos, herdado de FrmPadraoConsulta, quando pressiono o botão alterar:
procedure TFrmObjetos.Btn_AlterarClick(Sender: TObject);
begin
inherited;
try
Application.CreateForm(TFrmObjetosAt,FrmObjetosAt);
FrmObjetosAt.ShowModal;
finally
FrmObjetosAt. Release;
end;
end
A dúvida é a seguinte:
Tem como eu substituir TFrmObjetosAt e FrmObjetosAt por duas variáveis
para essa procedure ficar no formulário FrmPadraoConsulta?
Rogeriobarfer
Curtir tópico
+ 0
Responder
Posts
25/05/2004
Rômulo Barros
Já respondi algo a respeito.
Este link abaixo é resultante de uma consulta(Botão pesquisar)
[url]http://delphiforum.icft.com.br/forum/viewtopic.php?t=43947&highlight=form&sid=96acf420d42ac0adc02fdbb40e2fb8c3[/url]
Este link abaixo é resultante de uma consulta(Botão pesquisar)
[url]http://delphiforum.icft.com.br/forum/viewtopic.php?t=43947&highlight=form&sid=96acf420d42ac0adc02fdbb40e2fb8c3[/url]
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)