Přidání vlastnosti do TMenuItems – Delphi – Fórum – Programujte.com

Potřeboval bych upravit komponentu TMainMenu tak, aby se do její položek (Items) přidala nová vlastnost typu String. Ale nevím, jak to mám udělat. Poradíte?

fuha bohuzial vobec nerozumiem co to vlastne chces:)
myslis ako novu polozku na ktoru sa nebude dat klikat?

To sir_arthur : Potřebuju ke každé položce hlavního menu přiřadit proměnnou, která bude uchovávat cestu k souboru, který se spustí při události OnClick. Ty položky se generují z textového souboru až za běhu aplikace. Reakce na událost OnClick položky by mohla vypadat asi takto:

procedure TForm1.ItemOnClick(Sender: TObject);

begin

  ShellExecute(Handle,'open',PChar((Sender as TMenuItem).MojePromenna),nil,nil,SW_Show);

end;

To Radim92 : A co mít v Form1 pole stringů, do kterého bude ukazovat tag z TMenuItem?

procedure TForm1.ItemOnClick(Sender: TObject);



begin



  ShellExecute(Handle,'open',PChar(PoleStringu[(Sender as TMenuItem).Tag]),nil,nil,SW_Show);



end;

To Osiris : jj, já už na to taky přišel, jenom mi nějak unikly dynamická datová pole (asi jsem se učil ze špatných návodů), takže jsem nevěděl, jak to udělat, aby to bylo neomezený...
Díky.