用两个ToolButton连同一个PopupMenu,该怎么处理

2013-01-07

用两个ToolButton连同一个PopupMenu我用两个ToolButton连同一个PopupMenu,TooButton的Style设为tbsDropDow

用两个ToolButton连同一个PopupMenu
我用两个ToolButton连同一个PopupMenu,
TooButton的Style设为tbsDropDown，
可是当PopupMenu弹出时，我不知道是哪个ToolButton激发的啊！

[解决办法]
procedure TForm1.MenuItem1Click(Sender: TObject);
begin
  if ToolButton1.ClientToScreen(Point(0, ToolButton1.ClientHeight)).X=PopupMenu1.PopupPoint.x then
     ShowMessage('ToolButton1上点击。')
  else
  if ToolButton2.ClientToScreen(Point(0, ToolButton2.ClientHeight)).X=PopupMenu1.PopupPoint.x then
     ShowMessage('ToolButton2上点击。');
end;
比较笨的方法，希望能够帮到你。