Статус меню

[sonya__]

Здравствуйте, у меня возникла проблема и я была бы очень признательна за помощь... Есть форма и меню (компонент TMainMenu), требуется разместить строку на форме, содержимое которой должно зависеть от активного в данный момент времени пункта главного меню или подменю. Уже облазила форум и гуглила, не могу понять как это сделать

[artemavd]

procedure TForm1.N1Click(Sender: TObject);
begin
 Form1.Label1.Caption:=Form1.MainMenu1.Items.Items[0].Caption;
end;

[sonya__]

спасибо конечно, но у меня немного другая задача: мне необходимо отображение названий без кликов, а только наведением курсора на пункт т.е. текст должен меняться при движении по пунктам меню

[mihali4]

Увидел в заголовке слово "статус", поэтому предложу один общий обработчик для всех пунктов меню:

StatusBar1.Panels[0].Text:=(Sender as TMenuItem).Caption;

Нужно только убрать спереди символ "&". Надеюсь, ТС справится.

[sonya__]

да, но откуда брать sender, имею ввиду в каком обработчике это реализовывать