VPF::Как узнать, к какому объекту обращается TPopurMenu

ZLOvar

Дата 6.11.2010, 12:17 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 119
Регистрация: 4.6.2009
Где: Москва

Репутация: 1
Всего: 1

Здравствуйте. Можно ли как-нибудь узнать, по какому обьекту (в данном случае это TSpeedButton) кликнули ПКМ и вывели PopurMenu? Проблема заключается в том, что на форме много кнопок и заранее неизвестно их имя. Заранее спасибо.

--------------------

Если хочешь чтобы работало - используй написанное.Если хочешь что-то понять - пиши сам. (с)

БелАмор

Дата 6.11.2010, 13:44 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 209
Регистрация: 10.6.2010
Где: Россия

Репутация: 7
Всего: 17

Свойство TPopupMenu.PopupComponent

ZLOvar

Дата 6.11.2010, 14:07 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 119
Регистрация: 4.6.2009
Где: Москва

Репутация: 1
Всего: 1

БелАмор,
А как нужно использовать это св-во? Например процедура OnClick:

Код


procedure TForm1.N1Click(Sender: TObject);
begin
 //здесь нужно узнать, по какому объекту кликнули ПКМ.  
end;

--------------------

Если хочешь чтобы работало - используй написанное.Если хочешь что-то понять - пиши сам. (с)

БелАмор

Дата 6.11.2010, 15:23 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 209
Регистрация: 10.6.2010
Где: Россия

Репутация: 7
Всего: 17

Цитата(ZLOvar @ 6.11.2010, 14:07

)

А как нужно использовать это св-во?

Например, так:

Код


procedure TForm1.N1Click(Sender: TObject);
begin
  with PopupMenu1 do
  begin
    ShowMessage(Format(
      'Меню было вызвано для компонента:'#13#10 +
      'Class: %s'#13#10 +
      'Name:  %s',
      [PopupComponent.ClassName, PopupComponent.Name]));
  end;
end;

При необходимости можно проверять тип PopupComponent или приводить его к нужному типу.

Добавлено через 10 минут и 21 секунду
Например, вставка текста в соответстующий TEdit:

Код


procedure TForm1.N2Click(Sender: TObject);
begin
  if PopupMenu1.PopupComponent is TEdit then
    TEdit(PopupMenu1.PopupComponent).Text := 'Текст вставлен через меню';
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »