Discussion :

[sdebrois]

Bonjour,

Je souhaiterai pouvoir créer des evenements sur la classe TFrame. En effet, Après avoir crée plusieurs frames flottantes, l'utilisateur a la possibilité de fermer ces frames grace à l'utilisation de la croix dans la barre de titre du frame. Le probleme c'est que je voudrais libérer des ressources à ce moment. Comme aucune méthode de fermeture existe, je ne sais pas exactement comment m'en tirer... Si c'est possible j'aimerai bien un petit bout de code pour m'éclaircir

ps : l'utilisation de frame est nécessaire pour donner la possibilité à l'utilisateur de dragger les frames vers un form.

[Pierre Castelain]

Si ton but est juste de détecter le changement d'état de la propriété Visible, tu peux faire comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
type
  TFrame2 = class(TFrame)
  private
    { Private declarations }
    procedure VisibleChanged(var Msg: TMessage); message CM_VISIBLECHANGED;
  public
    { Public declarations }
  end;
 
implementation
 
{$R *.dfm}
 
{ TFrame2 }
 
procedure TFrame2.VisibleChanged(var Msg: TMessage);
begin
  inherited;
  MessageBeep(0); // A remplacer
end;

[sdebrois]

merci pour la réponse