Одно Popupmunu на несколько TollButons

[akaTemporary]

Доброго дня!
При нажатие пунка в PopupMenu1 результат приходит от последней добавленной кнопки! Подскажите что я не так делаю или у меня обработка не в том месте!!!!

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, ToolWin, StdCtrls;

type
  TForm1 = class(TForm)
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    PopupMenu2: TPopupMenu;
    N4: TMenuItem;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure N1Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.N1Click(Sender: TObject);
var i:Integer;
begin
///
  i:=10;
  Form1.Caption:='нажато Удалить';
  Edit2.Text:='Проверена кнопка: ';
  for i:=0 to ToolBar1.ButtonCount-1 do begin
    if TMenuItem(Sender).GetParentMenu=ToolBar1.Buttons[i].DropdownMenu then begin
      Edit1.Text:='кнопка = '+IntToStr(i);
    end;
    Edit2.Text:=Edit2.Text+IntToStr(i)+';';
  end;

///
end;

procedure TForm1.N4Click(Sender: TObject);
begin
  // Добавить новую кнопку
          with TToolButton.Create(ToolBar1) do
          begin
            Parent := ToolBar1;
            Style := tbsDropDown;
            AutoSize:=False;
            DropdownMenu:=PopupMenu1;
            Tag:=ToolBar1.ButtonCount;
            Cursor:=crHandPoint;
          end;

  Form1.Caption:='нажато Добавить кнопку';
end;

end.

Delphi7

[Stilet]

У меня твой код работает.
Я же тебе пример писал. Я его проверял все ок.

[akaTemporary]

У меня не работает! в строке

 Edit1.Text:='кнопка = '+IntToStr(i);

у меня возвращается номер последней добавленной кнопки, там хоть на любую нажимай. Если была добавлена кнопка №3 то при нажатии на пункт меню будет возвращатся №3!
Не знаю, как у тебя работает... Если не трудно прикрепи свой код, который работает!

[mihali4]

Или я что-то не понял, или тут извраты какие-то...
Вроде просто все:

procedure TForm1.N1Click(Sender: TObject);
begin
ShowMessage(PopupMenu1.PopupComponent.Name);
end;

[Stilet]

akaTemporary

Я скопировал твой код один-в-один.
Он рабочий на все 100%

[akaTemporary]

procedure TForm1.N1Click(Sender: TObject);
begin
ShowMessage(PopupMenu1.PopupComponent.Name);
end;

показывает 'ToolBar1', а тебя что показывает?

////
Если в месте создания кнопки написать так:

            PopupMenu:=PopupMenu1;
            //DropdownMenu:=PopupMenu1;

            Name:='ToolButton'+IntToStr(ToolBar1.ButtonCount);
            Hint:=Name;
            ShowHint:=True;

то в процедуре обработки пункта меню N1:

    if PopupMenu1.PopupComponent = ToolBar1.Buttons[i] then begin
      Edit1.Text:='кнопка = '+IntToStr(i);
    end;

будет возвращаться правильное значение!

А через DropdownMenu - ничего не выходит!

[Stilet]

mihali4

Не. Михалыч. Ему нужно узнать к какой кнопке относится меню, где был клик.

[mihali4]

Так попапку нужно назначать не тулбару (!), а каждой кнопке тулбара !
Еще раз повторюсь - я всегда проверяю код перед ответом...

[akaTemporary]

          with TToolButton.Create(ToolBar1) do
          begin
            Parent := ToolBar1;
            Style := tbsDropDown;
            ....
            DropdownMenu:=PopupMenu1;
            ...

Вот тут же указывается, какое меню будет отображаться!
Может всё-таки я чего то не обрабатываю. Так как вывод попменю возложено на тулбар! а следственно он и является родителем!!!

[Stilet]

akaTemporary

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