Fórum Forms MDI Fecham mas não desaparecem #372819
27/07/2009
0
Dsde ja agradeço.
Fabbyo
Curtir tópico
+ 0Posts
27/07/2009
Sdph
Action := caFree;
Gostei + 0
28/07/2009
Facc
Faltou colocar
Nome_do_seu_Form := nil;r
Gostei + 0
28/07/2009
Fabbyo
Action := caFree;
Nome_do_seu_Form := nil;
Mas como explicado, o form child somente desaparece se eu minimizar o form principal e maximizar ele novamente.
Gostei + 0
28/07/2009
Facc
seu form pai é MDIForm?
Gostei + 0
28/07/2009
Fabbyo
Eu carrego meus form a partir de uma BPL da seguinte forma:
aClass := GetClass(nmForm);
aPersistentClass := GetClass(nmForm);
{ Verifica se o formulário já foi criado em memória }
for i:= 0 to MdiChildCount - 1 do
if MDIChildren[i].ClassName = nmForm then
aForm := MDIChildren[i];
if aForm = nil then
begin
aForm := TComponentClass(aClass).Create(application.MainForm) as TForm;
aForm.Caption := fRetornaNomeForm(nmForm);
mnuJanela := TMenuItem.Create(application.MainForm);
mnuJanela.Caption := aForm.Caption;
mnuJanela.name := ´j´+TmenuItem(Sender).name;
mnuJanela.OnClick := btnClick;
try
for i := 0 to mnPrincipal.Items.Count - 1 do
if mnPrincipal.Items[i].Caption = ´Janela´ then
mnPrincipal.Items[i].Add(mnuJanela)
finally end;
end;
aForm.WindowState := wsMaximized;
aForm.BringToFront;
aForm.SetFocus;
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)