Текущий архив: 2007.11.18;
Скачать: CL | DM;

Вниз

ToolButton & DropDownMenu   Найти похожие ветки 

← →
webpauk   (2007-10-26 10:54) [0]

как через ItemClick получить ToolButton?

положение таково:

создаются ToolButton-ы
Style:=tbsDropDown  
ToolButton.DropDownMenu:=Popup1

procedure TFormFrom.N1Click(Sender: TObject);
begin
 как получить ToolButton?
end;

---

← →
Dennis I. Komarov ©   (2007-10-26 10:58) [1]

TAction рулит!

---

← →
webpauk   (2007-10-26 11:24) [2]

еще есть варианты?

---

← →
webpauk   (2007-10-26 11:59) [3]

алёнахххх

---

← →
ЮЮ ©   (2007-10-26 12:07) [4]

Самый популярный вопрос недели:
http://delphimaster.net/view/2-1193379623/

---

← →
webpauk   (2007-10-26 12:47) [5]

> ЮЮ ©   (26.10.07 12:07) [4]

да что ты?

unit Unit1;

interface

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

type
 TForm1 = class(TForm)
   ToolBar1: TToolBar;
   Button1: TButton;
   PopupMenu1: TPopupMenu;
   N1: TMenuItem;
   procedure Button1Click(Sender: TObject);
   procedure N1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 fBtn: TToolbutton;
 fI: Integer;
begin
 for fI := 1 to 10 do
 begin
   fBtn:=TToolButton.Create(ToolBar1);
   fBtn.Caption:=IntToStr(fI);
   fBtn.Style:=tbsDropDown;
   fBtn.DropdownMenu:=PopupMenu1;
   fBtn.Parent:=ToolBar1;
 end;

end;

procedure TForm1.N1Click(Sender: TObject);
begin
//
end;

end.

---

← →
webpauk   (2007-10-26 12:49) [6]

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

---

← →
webpauk   (2007-10-26 12:49) [7]

ToolBar!!!
а надо ToolButton!!!

---

← →
webpauk   (2007-10-26 13:07) [8]

алёёё

---

← →
Dennis I. Komarov ©   (2007-10-26 13:19) [9]

> webpauk


Думаешь что тебе кто-то чем-то обязан?

---

← →
webpauk   (2007-10-26 13:20) [10]

> Dennis I. Komarov ©   (26.10.07 13:19) [9]

никто и ничем
а вдруг...

---

← →
Dennis I. Komarov ©   (2007-10-26 13:37) [11]

> [10] webpauk   (26.10.07 13:20)

Тогда советую изменить свое поведение и задавать вопросы конкретные.

---

← →
webpauk   (2007-10-26 14:38) [12]

> Dennis I. Komarov ©   (26.10.07 13:37) [11]


> webpauk   (26.10.07 12:47) [5]

как получить здесь: procedure TForm1.N1Click(Sender: TObject);
ToolButton, из которого было вызвано меню

---

← →
Palladin ©   (2007-10-26 14:55) [13]

ну например

procedure TForm1.ToolButtonMM(Sender: TObject; Shift: TShiftState;   X, Y: Integer);
begin
 PopupMenu1.Tag:=Integer(Sender);
end;

procedure TForm1.DDMenuItem1Click(Sender: TObject);
begin
 ShowMessage(TComponent((Sender as MenuItem).GetParentMenu.Tag).Name);
end;

...
ToolButton1.OnMouseMove:=ToolButtonMM;
ToolButton2.OnMouseMove:=ToolButtonMM;
...


---

Страницы: 1 вся ветка

Текущий архив: 2007.11.18;
Скачать: CL | DM;

Наверх

Память: 0.49 MB
Время: 0.019 c