ошибка PopupMenu.Change = IntToStr(Value)

[beegl]

Привет всем! Помогите найти ошибку, у меня все Caption числовые в PopupMenu, подскажите, как в PopupMenu.Change = IntToStr(Value) и не было ошибки. Чтоб одной строчкой присвоить выбранный пункт в SpinnerTraf.Value. Как правильно записать?

так не хочет:

PopupMenu2Change

PopupMenu1.Items.Caption := IntToStr(SpinnerTraf.Value);

и так, ошибка:

PopupMenu2Change

SpinnerTraf.Value := StrToInt(PopupMenu2.Items[PopupMenu2.Items.MenuIndex].Caption);

PopupMenu2Change

SpinnerTraf.Value := StrToInt(PopupMenu2.Items.Caption);

[Stilet]

Дык там в событии есть есть Sender, которого можно привести как TMeniItem(Sender) и обращаться к его свойствам и Source. Оба указывают на элементы меню. Sender на пункт, что был выбран, а Source на пункт, с которого перескочили.
Т.е.

SpinnerTraf.Value := StrToInt(TMeniItem(Sender).Caption);

И

SpinnerTraf.Value := StrToInt(Source.Caption);

Смотря что тебе надо.

[beegl]

Сообщение от Stilet

SpinnerTraf.Value := StrToInt(TMeniItem(Sender).Caption);

такая ошибка:

[Error] Unit1.pas(2162): Undeclared identifier: 'TMeniItem'
[Error] Unit1.pas(2162): ')' expected but identifier 'Caption' found

[Stilet]

Хоспдя, ну почитай ты уже в хелпе про это событие. Опечатка у меня. Не "i" а "u"