unit Ucadre; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TCadre = class(TFrame) BtnFermer: TButton; procedure BtnFermerClick(Sender: TObject); procedure CMRelease(var Message: TMessage); message CM_RELEASE; procedure Release; private { Déclarations privées } public { Déclarations publiques } end; implementation {$R *.dfm} procedure TCadre.Release; begin PostMessage(Handle, CM_RELEASE, 0, 0); end; procedure TCadre.CMRelease; begin Free; end; procedure TCadre.BtnFermerClick(Sender: TObject); begin Release; end; end.
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
119 internautes nous ont dit merci ce mois-ci
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.