Comment passer un message d'un objet à un autre objet dans Free Pascal

Question

J'ai un formulaire et puis j'ai un objet 'TPageControl' (nommé 'MyPages') et un objet 'TButton' (nommé 'MyButton') placé dessus à temps de conception. Ensuite, j'ai une nouvelle classe appelée 'TTab' qui étend 'TTabSheet'. La classe 'TTab' a un objet 'TButton' comme l'une de ses variables membres comme ci-dessous.

class TTab = class(TTabSheet) 
private 
    m_btnCloseTab: TButton; 
end; 

Lorsque je clique sur le « MyButton », il créerait un nouvel objet « TTAB », init l'onglet (comme instancier le « m_btnCloseTab ») et l'ajouter à « MyPages » à Durée.

Procedure TForm1.MyButtonClick(Sender:TObject); 
var 
    newTab: TTab; 
    newCaption: AnsiString; 
begin 
    newCaption:= 'Tab' + IntToStr(count); //count is a global var 
    inc(count); 

    newTab:= TTab.Create(nil); 
    newTab.Init(newCaption); 
    newTab.Parent(MyPages); 
end; 

Voici à quoi ressemble la procédure TTab.Init (newCaption: AnsiString).

Procedure TTab.Init(newCaption: AnsiString); 
begin 
    Self.Caption:= newCaption; 
    m_btnCloseTab:= TButton.Create(nil); 
    with m_btnCloseTab do begin 
    Parent:= Self; 
    Left:= 10; 
    Top:= 10; 
    Caption:= 'Close Tab'; 
    Visible:= True; 
    OnClick:= @closeTab; 
    end; 
end; 

Cela ajoute un nouvel onglet. Le bouton de fermeture est également affiché sur chaque onglet. Comment puis-je cliquer sur le «m_btnCloseTab» sur chaque onglet pour fermer cet onglet particulier?

Si je définis un destructeur (en remplaçant le destructeur de la TTabSheet) pour TTab comme ci-dessous, je peux l'appeler de l'extérieur.

Destructor TTab.Destroy; 
begin 
    if m_btnCloseTab <> nil then begin 
    m_btnCloseTab.Destroy; 
    m_btnCloseTab:= nil; 
    end; 
    inherited; 
end; 

Mais je ne peux pas appeler le Destructeur depuis l'intérieur de l'onglet (enfin, vous pouvez). Si je le fais, je ne peux pas libérer l'objet m_btnCloseTab car cela donnerait une exception, car nous sommes toujours son gestionnaire d'événements. Si je ne le libère pas, l'onglet se ferme bien, mais la mémoire est divulguée (parce que nous n'avons pas libéré m_btnCloseTab). Je crois que je dois déclencher un événement pour que le destructeur puisse être appelé depuis l'extérieur de 'TTab'. Je ne sais pas comment le faire.

Toute aide serait appréciée.

Merci.

Answer 1

Vous pouvez trouver des méthodes de notification partout dans les sources LCL (et bien sûr dans Delphi). Un exemple simple est un TLabeledEdit: c'est une sorte de "TEdit" qui contient un TLabel. Si Label est détruit, LabeledEdit en est averti car il doit mettre la référence à l'étiquette à zéro. Sinon, le destructeur de TLabeledEdit tentera de détruire à nouveau l'étiquette - BOOM. Ici, la méthode est comme celui-ci (collé à partir ExtCtrls):

procedure TCustomLabeledEdit.Notification(AComponent: TComponent; 
    Operation: TOperation); 
begin 
    inherited Notification(AComponent, Operation); 
    if (AComponent = FEditLabel) and (Operation = opRemove) then 
    FEditLabel := nil; 
end; 

Et vous pouvez voir ce que vous avez à faire dans votre cas:

procedure TTab.Notification(AComponent: TComponent; 
    Operation: TOperation); 
begin 
    inherited Notification(AComponent, Operation); 
    if (AComponent = m_BtnCloseTab) and (Operation = opRemove) then 
    m_BtnCloseTab := nil; 
end; 

S'il vous plaît noter que la notification est une méthode virtuelle et doit être déclaré avec l'attribut "override" dans la section protégée du composant.

Answer 2

Je voudrais utiliser un seul bouton pour cette tâche.

Extrait la déclaration m_btnCloseTab de TTab et la place dans la forme principale privée.

ensuite sur votre principale de FormCreate de forme:

m_btnCloseTab: = TButton.Créer (MyPages);

(ci-dessus suppose l'MyPages est un composant placé sur le formulaire, sinon il doit d'abord être créé.)

Donnez le bouton un haut et à gauche qui fait sens pour votre TTAB de.

Maintenant, m_btnCloseTab sera libéré lorsque MyPages sera libéré lorsque le formulaire sera fermé.

Maintenant tout ce que vous avez à faire est de créer vos nouveaux onglets comme vous le souhaitez et quand on est concentré, il suffit de faire de cet onglet le parent de votre bouton. Vous pouvez le faire, par exemple, dans la méthode MyPages OnChange ou tout ce qu'elle a comme ça.

Lorsque le bouton est cliqué, il fait quelque chose comme TTab (Parent) .Free;

Cependant, vous devrez peut-être stocker Parent dans une variable locale OnClick du bouton, dire:

TempTab: TTAB

Ensuite, définissez simplement TempTab: = TTAB (Parent), réglez Parent Bouton à zéro , puis appelez TempTab.Free;

Je voudrais aussi donner à vos onglets un propriétaire. De cette façon, si l'utilisateur ferme le formulaire avec les onglets toujours ouverts (c'est-à-dire que votre bouton n'a pas été cliqué), le propriétaire les libérera.

donc déclarer vos onglets comme:

newtab: = TTab.Create (MyPages);

Cela devrait résoudre tous vos problèmes et, après un peu de fiddling, est assez facile à gérer.

Une recommandation finale J'utiliserais la méthode .Free et/ou FreeAndNil() plutôt que d'appeler directement .destroy.