aşağıda gösterildiği gibi oluşturma ve TPopupMenu

Question

bir TMenuItem çalışma zamanını oluşturarak kullanılan bir TMenuItem açma:

mi := TMenuItem.Create([owner]);

ve şöyle bir TPopupMenu ekleyerek:

PopupMenu1.Items.Add(mi);

ben gerekiyor mu [owner]'u PopupMenu1 olarak belirtmek için nil kullanabilir miyim?

mi Bu durumda PopupMenü1 tarafından ücretsiz olacak ve eğer öyleyse nasıl doğrulayabilirim?

Answer 1

Nil'i sahip olarak belirtebilirsiniz, ana öğe kendi öğelerini serbest bırakır.

type 
    TForm1 = class(TForm) 
    PopupMenu1: TPopupMenu; 
    Button1: TButton; 
    Button2: TButton; 
    procedure Button1Click(Sender: TObject); 
    procedure Button2Click(Sender: TObject); 
    private 
    mi: TMenuItem; 
    protected 
    procedure Notification(AComponent: TComponent; Operation: TOperation); 
     override; 
    end; 

    .. 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    mi := TMenuItem.Create(nil); 
    mi.FreeNotification(Self); 
    PopupMenu1.Items.Add(mi); 
end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
    PopupMenu1.Free; 
end; 

procedure TForm1.Notification(AComponent: TComponent; Operation: TOperation); 
begin 
    inherited; 
    if (AComponent = mi) and (Operation = opRemove) then 
    ShowMessage('mi freed'); 
end; 

: O bildirim mekanizmasını kullanabilir eylem görmek için, yeterli değilse

destructor TMenuItem.Destroy; 
begin 
    .. 
    while Count > 0 do Items[0].Free; 
    .. 
end; 

: doğrulayarak gelince

, en kolay TMenuItem.Destroy kodu görmektir Öğeyi önce açılır menüye eklemek için Düğme1'e basın. Ardından, Popup'u boşaltmak için Button2'ye basın. Öğe, yok edildiğinde formunuzu bildirir.