herança + construtores = erro

[orc 0]

tenho um form onde eu faço um tratamento nele e é o form padrão para cadastro dentro dele tenho construtores etc mais ele só funciona quando está como mdichild e o form principal como mdiform gostaria de saber se da pra deixar ele utilizando os contrutores e utilizado como um form normal usando showmodal , andei tentando mais só da erro , alguem da uma power ???

 

outra coisa eu só posso usar construtores com forms mdi ????

[Rodrigo Miss 1]

Como você esta criando esse form ?

oke você ta tentando fazer .... pra mim fiko meio confuso .... da uma explica melhor aew ?

[orc 0]

Como você esta criando esse form ?

oke você ta tentando fazer .... pra mim fiko meio confuso .... da uma explica melhor aew ?

tenho um construtor no form que abre todas as querys existentes dentro do form, só que não estou usando mdi child e quendo mando abrir o form ele não abre

 

Fcadastro := TfCadastro.Create( self, Conexao ) ;

[Rodrigo Miss 1]

Ta! mais cadê o codigo do seu método construtor ...

Como esta o FormStyle dos forms q você esta criando ?

Como esta o Visible dos forms ?

 

Afinal. você quer ou naum quer trabalhar com aplicação MDI ????

Se naum quer usar MDI, basta deixar FormStyle:= False; e dar sempre um .ShowModal nos forms apos a criacao dos mesmos ....

[orc 0]

Ta! mais cadê o codigo do seu método construtor ...

Como esta o FormStyle dos forms q você esta criando ?

Como esta o Visible dos forms ?

 

Afinal. você quer ou naum quer trabalhar com aplicação MDI ????

Se naum quer usar MDI, basta deixar FormStyle:= False; e dar sempre um .ShowModal nos forms apos a criacao dos mesmos ....

construtor ::

 

constructor TFCadastro.Create(AOwner: TComponent; Conexao : TMyConnection );
var
  viContador: Integer;
begin
  inherited Create( AOwner );
  // Atribui os Valores as Variáveis
  FConexao := Conexao;
  // Seta a Conexao aos Comp.
  for viContador := 0 to ComponentCount - 1 do
	if Components[ viContador ].ClassType = TMyQuery then
	begin
	  with TMyQuery( Components[ viContador ] ) do
	  begin
		Active	  := False;
		Connection  := FConexao;
	  end;
	end;

  // Abre a Tabela
  Tabela.Open;

end;

formstyle := fsnormal

 

visible := false;

 

 

crio o form assim :

 

FCadUsuario := TFCadUsuario.Create(self , Dtm.Conexao );

FCadUsuario.showmodal;

FCadUsuario.Free;

 

 

só que o form num aparece só que a tela principal fica travada sem poder acessar ela

[Rodrigo Miss 1]

Experimente Rodar passo a passo (F7) e veja onde vai parar ...

agora naum entendi, c na hora de criar o form você passa o DataSet a ser aberto, entao porque faz um loop pra abrir o mesmo ? bastaria apenas abrir o DataSet passado por parametro, eu entao nem precisava passar pametro algum ;;;;