do opcji w PopumMenu chcę dodać sprawdzanie jakichś warunków
więc tworzę moją własną klasę TMyMenuItem z dodatkową właściwością OnClick
TMyMenuItem = class(TMenuItem)
public
procedure Click; override;
end;
procedure TMyMenuItem.Click;
begin
if <tutaj będą jakieś dodatkowe warunki> then
begin
end;
inherited Click;
end;
i później tworzę dynamicznie te pozycję w popupMenu
AMenuItem := TMyMenuItem.Create(Self);
AMenuItem.Caption := 'otwórz'
AMenuItem.OnClick := ProceduraOtworzClick;
AMenuItem.Enabled := True;
ppmSearch.Items.Add(AMenuItem);
Problem jest, że gdy klikam na te opcje w Popup, to wchodzi do tej mojej nowej procedury, ale nic nie wykonuje się dalej (tzn, nie wykonuje się pierwotne OnClick)
Co robię źle?
