PopupMenu на несколько кнопок

@demiancz · Регистрация: 26.08.2010

Author24 — интернет-сервис помощи студентам

На форме несколько кнопок. Один popupmenu привязан ко всем кнопкам. Как узнать название кнопки при вызове popupmenu

Я вот к примеру что бы привязать один popupmenu ко всем кнопкам сделал так:

Delphi

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 нажатой кнопки

@kwinto · 11.01.2012, 23:27

Delphi

1 2	if (PopupMenu.PopupComponent is TBitBtn) then Edit1.Text:=PopupMenu.PopupComponent as TBitBtn).Caption;

	11.01.2012, 23:27