Hola a todos:
Tengo una aplicacion de tipo MDIForm que contiene un TTreeView para mostrar las ChildForms que se crean. Cuando yo creo una nueva ChildForm esta se inserta en el TTreeView con su nombre, ahora, mis dudas vienen dado que deseo que cuando se cierre una ChildForm esta desaparezca del TTreeView.
Probe programar esto en el evento OnClose de la ChildForm, pero no funciona:
Código Delphi
[-]
procedure TFrmChild.FormClose(Sender: TObject; var Action: TCloseAction);
var
TreeNode: TTreeNode;
begin
FrmMain.CantWindOpened := FrmMain.CantWindOpened - 1;
FrmMain.StatusBar1.Panels[0].Text := IntToStr(FrmMain.CantWindOpened);
TreeNode := TTreeNode.Create(FrmMain.TreeFiles.Items);
TreeNode.Text := Self.Caption;
FrmMain.TreeFiles.Items.Delete(TreeNode);
Action := caFree;
end;
Alguien sabra acaso como se resuelve este problema?