Não seria melhor assim ?? Oq vc acha ?
procedure abrirFormulario(aFormulario: TForm, NomeTabela: TClientDataSet);
begin
if aFormulario = nil then begin
Application.CreateForm(aFormulario.ClassType, aFormulario);
NomeTabela.Open;
aFormulario.ShowModal;
else
aFormulario.ShowModal;
end;
É mais ou menos isso que vc queria ? Não testei mas deve funcionar de primeira.
Vinicius dos Santos
Analista de Desenvolvimento Júnior
MSI SOLUÇÕES
Av. Dr. Altino Arantes, 131 Sala 145 - 146 Centro - Ourinhos/Sp - Brasil
Fone/Fax: +55 (14) 3324-8181 www.msisolucoes.com.br
----- Original Message -----
From: Ednro Jr
To: delphi-br@yahoogrupos.com.br
Sent: Friday, March 28, 2008 11:37 PM
Subject: [delphi-br] Herança?
Como fazer os formulários herdados abrirem o dataset no ID passado por
parâmetro?
Eis minha função para abrir um form:
procedure abrirFormulario(aClasseFormulario: TComponentClass;
aFormulario: TForm);
begin
if not Assigned(aFormulario) then
Application.CreateForm(aClasseFormulario, aFormulario)
else
aFormulario.BringToFront;
end;
Assim abro os formulários, porém quero acrescentar a essa função que
ele abra o ClienteDataSet num ID passado por parâmetro. Tem como fazer
isso?
[As partes desta mensagem que não continham texto foram removidas]
