这种按钮是怎样实现的？

[lichp]

怎么样实现点按钮的部分区域（比如说右下角），弹出菜单，而点其他区域执行其他操作！就像FOXMAIL的接受按钮一样？

[ChipHead]

在onMouseUp事件中检查鼠标的X,Y位置，如果是在特定范围则弹出菜单，否则执行其他操作。另外，不要响应onClick事件，否则会引起其他操作被执行两次。

[lichp]

是接收邮件那个按钮：）

[sundayboys]

是啊，按ChipHead(ChipHead)方法就可以了

[sundayboys]

另外的方法是：
1.在窗体上放一个coolbar控件
2.在coolbar上面放一个toolbar，设置其ShowCapitions属性为true，flat为true，然后新建一个按钮toolbtn1
3.放入一个popupmenu控件popupmenu1，设置其items为file1和exit1
4.设置toolbtn1的dorpdownmenu为popupmenu1，style为btsdropdown

[lichp]

误会了，不是那样的。
＊＊＊＊＊
＊＊＊＊＊
＊＊＊＊＊
＊＊＊＊+
就像上图一样，整个是一个按钮，点击＊区域时就和一般的按钮点击一样。但点击＋区域则弹出一个POPMENU，如何实现，还望指教！

[lichp]

咦，怎么没有人来回答？真的很难吗？

[hjkou]

在onMouseUp事件中检查鼠标的X,Y位置

[weenyboy]

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
Rect:TRect;
begin
if (X>Button1.Width -20) and (Y>Button1.height-20) then
begin
Rect:=Button1.BoundsRect;
MapWindowPoints(Handle,0,Rect,2);
PopupMenu1.Popup(Rect.Left+X,Rect.Top+Y);
end
else
ShowMessage('click');
end;

[lichp]

OK!谢谢了

[jjdelphi]

长见识