Mam taką strukturę MainMenu:
Operacje
Operacyjki1 --> Pusto:)
Chcę dynamicznie dodać elemnet do SubMenu elementu Operacyjki1 i ustawić dla nowo wstawionego elementu właściwośc Caption oraz uzupełnić procedure onClick.
Jak to zrobić?
Mam taką strukturę MainMenu:
Operacje
Operacyjki1 --> Pusto:)
Chcę dynamicznie dodać elemnet do SubMenu elementu Operacyjki1 i ustawić dla nowo wstawionego elementu właściwośc Caption oraz uzupełnić procedure onClick.
Jak to zrobić?
var TMPMenuItem: TMenuItem;
TMPMenuItem:=TMenuItem.Create;
Operacyjki1.Add(TMPMenuItem);
TMPMenuItem.Caption:='Operacyjka numer 1';
TMPMenuItem.OnClick:=Form1.Operacyjka1Click;
Uwaga! Operacyjka1Click musi być metodą typu TNotifyEvent. Inaczej nie pójdzie. Jest to najczęściej popełniany błąd, więc zwracam na niego uwagę.
Działa, dzięki.