Comment libérer un cadre dans un événement de clic sur un bouton du cadre?

Question

Je avais pu le faire en utilisant les boutons delphi simples:

Dans le premier cadre, je l'ai (simplifié)

procedure FirstFrame.ButtonClick(Sender: TObject) 
Begin 
    if TButton(Sender).ModalResult = mrOK then 
    ChildFrame.DoOKStuff 
    else 
    ChildFrame.DoCancelStuff; 
    ChildFrame.Free; 
end; 

procedure FirstFrame.ShowFranme; 
begin 
    ChildFrame := TFrameWithButtons.Create(Owner); 
    ChildFrame.Parent := self; 
    ChildFrame.OKButton.OnClick := ButtonClick; 
    ChildFrame.CancelButton.OnClick := ButtonClick; 
    ChildFrame.Visible := True; 
end; 

Dans le Childframe je ne fais rien pour traiter le bouton clic sur le bouton ... le clic est déjà défini pour renvoyer le contrôle à la première image.

Avec certains boutons tiers, cela occasionne parfois un AV. Je comprends pourquoi - à un moment donné dans le traitement de code 3ème partie renvoie à un cadre ou un bouton maintenant libéré MAIS le code appelé est dans la première image ... Annoyingly cela fonctionne seulement 99.99% du temps :)

est aucune procédure de libération pour les cadres. Donc, ma question est de savoir quelle est la bonne façon de gérer cette situation?

Utilisation de Delphi 6 et Delphi 2009.

Answer 1

Essayez ceci:

type 
    TFrameWithButtons = class(TFrame) 
    ... 
    procedure CMRelease(var Message: TMessage); message CM_RELEASE; 
    ... 
    end; 

procedure TFrameWithButtons.CMRelease(var Message: TMessage); 
begin 
    Free; 
end; 

procedure FirstFrame.ButtonClick(Sender: TObject) 
Begin 
    if TButton(Sender).ModalResult = mrOK then 
    ChildFrame.DoOKStuff 
    else 
    ChildFrame.DoCancelStuff; 
    PostMessage(ChildFrame.Handle, CM_RELEASE, 0, 0); 
end; 

Answer 2

Jetez un oeil à la façon dont TCustomForm.Release est mis en œuvre. C'est assez simple: il envoie un message à la file d'attente des messages Windows qui, une fois traitée, provoque la libération du formulaire. Cela ne devrait pas être trop difficile à mettre en œuvre dans votre propre code.