Fórum DBedit não deixa escrever #559592
27/07/2016
0
Eu tenho um Programa de cadastros ele funcionava perfeitamente quando eu chamava o Form desta forma:
Sys_Cad_Loja.Showmodal;
Apenas dando um ShowModal.
fiz umas alterações para este form abrir posicionado dentro de um panel então tive que mudar o código usando um parent desta forma:
Sys_Cad_Loja.Parent := PanelPrin; Sys_Cad_Loja.Align := alClient; Sys_Cad_Loja.Show; Sys_Cad_Loja.WindowState := wsMaximized;
a partir do momento que eu uso o Parent os meus DBedits da minha janela que eu abro param de funcionar após o meu insert.
eles não me permitem digitar...
Lembrando que funcionava perfeitamente antes de usar o parent, Componentes corretamente ligados, propriedade Readonly desativada.
Socorro Galera.
Jean Santos
Curtir tópico
+ 0Post mais votado
27/07/2016
Raimundo Pereira
Gostei + 1
Mais Posts
27/07/2016
Jean Santos
Gostei + 0
27/07/2016
Jean Santos
Uma Curiosidade que descobri é que quando uso o parent o evendo OnActivate do meu Form não é Chamado como da outra maneira, essa questão eu ja havia avalidado e inclui no meu Código que o Evento Fosse Chamado manualmente, mas mesmo assim não funciona.
procedure TSys_Menu_Prin._abrir_form(Tformulario: TFormClass; Formulario: TForm; Sender: TObject);
begin
if formexiste( Formulario ) = false then
begin
Formulario := Tformulario.create(self) ;
end;
Formulario.Parent := PanelPrin;
Formulario.Align := alClient;
Formulario.Show;
Formulario.WindowState := wsMaximized;
Formulario.OnActivate(Sender);
end;
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)