popupmenu на несколько компонентов

[856100]

Здравствуйте! У меня назначен один popupmenu на несколько компонентов (пусть будут TImage). Как мне узнать, какой компонент вызвал popupmenu (хотяб имя)?

[856100]

Вопрос решен.

[demiancz]

Как решен вопрос? Меня тоже волнует этот вопрос.

[kettanaito]

Разве не значение Sender отвечает за это?

[demiancz]

А пример можно. Я вот к примеру что бы привязать один popupmenu ко всем кнопкам сделал так:
procedure TForm1.FormCreate(Sender: TObject);
var
i : Integer;
begin
for i := 0 to ComponentCount-1 do
if (Components[i] is TBitBtn) then
(Components[i] as TBitBtn).PopupMenu := PopupMenu1;
end;

А как теперь получить свойство Caption именно той кнопки для которой вызывается PopupMenu
Например: Если нажал на PopupMenu то Edit1.Text = Caption нажатой кнопки

[kettanaito]

Опиши свойство PopupMenu1 - onPopup. Как-то так:

ShowMessage(TBitBtn(Sender).Caption);

[demiancz]

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

Опиши свойство PopupMenu1 - onPopup. Как-то так:

ShowMessage(TBitBtn(Sender).Caption);

Ошибка
Missing operator or semicolon

[Пепел Феникса]

эта ошибка относиться к предыдущей строке обычно.
пропустили ; гдето.

[demiancz]

Ошибка когда нажимаю мышей на кнопке
For loop control variable must be simple local variable

Код у меня такой
procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
if Form2.sBitBtn1.Caption = 'Коловорот' then
Form2.sBitBtn1.Caption := TsBitBtn(Sender).Caption;
end;

[kettanaito]

procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
if TsBitBtn(Sender).Caption = 'Коловорот' then ShowMessage(TsBitBtn(Sender).Caption);
end;

Вы это хотите сделать?