mainmenu

[prizrak1390]

Доброе время суток.
У меня такой вопрос...
Есть процедура в которую необходимо передать в текст из Hint конкретного пункта из mainmenu.
Т.Е Например в mainmenu имеется пункт ADR и в Hint этого пункта написан url. Подскажите как извлеч из любого пункта текст Hint'а...Или как получить индекс пункта по которому юзер кликнул??

[FaTaL]

Если я правильно понял, то например: Есть пункт меню MenuButton1 и в нём Hint, тогда присваиваем например Label1.Caption:=MenuButton1.Hint;
И в Label1 окажется Hint этой кнопки меню.

[_Dmitry]

Чтобы узнать Hint пункта меню, который выбрал "юзер", подцепи эту процедуру к событиям OnClick для всех пунктов меню

procedure TForm1.NClick(Sender: TObject);
var
  S: string;
begin
  S:=(Sender as TMenuItem).Hint;
  Label1.Caption:=S;
end;

[prizrak1390]

Dmitry, Спасибо большое!!!!