Bonjour,
J ai un probleme pour fermer ma fiche dynamique.
Je cree une form avec :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
        if FindComponent('form'+inttostr(compteuronglet))=nil then
            begin
            Form := TForm.create(nil);
            form.height:=162;
            form.width:=400;
            form.position:=podesktopcenter;
            form.visible:=true;
            form.name:='form'+inttostr(compteuronglet);
            form.show;
            form.onclose:=MaFormClose;
puis un bouton BNon qui permet de fermer la fiche. Quand l utilisateur clique sur le bouton, ca va bien dans ma fonction BnonOnclick qui contient un
form.close. Et la, ca bug pendant l'execution.

Le code de mon onclose :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
procedure TFDonneesMissions.MaFormClose(Sender: TObject; var Action: TCloseAction);
VAR
    form:TForm;
begin
showmessage('dans maformclose');
form:=TForm(Findcomponent('form'+inttostr(compteuronglet)));
FreeAndNil(form);
form.free;
end;
Et quand je clique sur le bouton, il ne va pas dans ma fonction MaFormClose, alors qu il y va quand je ferme ma form avec la croix.
Apres 3 jours de recherches infrutueuses sur google, je m en remets a vous.
Merci !
Julie