Tạo một nút menu trong Windows của

Question

Microsoft User Experience Interaction Guidelines đưa ra một số hướng dẫn giao diện người dùng khi sử dụng một nút menu:

http://i.msdn.microsoft.com/Aa511453.command51(en-us,MSDN.10).png

Làm thế nào cách nào để tạo một trong những nút menu? Tôi đã tìm thấy thông tin về

• làm thế nào để tạo ra một nút chia trong Vista trở lên
• làm thế nào để tạo ra một nút trên thanh công cụ với một trình đơn thả xuống
• làm thế nào để tạo ra một nút bấm thường xuyên và bằng tay dây lên một OnClick trình xử lý sự kiện bật lên một menu

Nhưng có cách nào tiêu chuẩn để tạo nút, không phải trên thanh công cụ, với hình tam giác nhỏ xuống, tự động bật lên trình đơn khi được nhấp không?

(Tôi đang sử dụng Delphi/C++ Builder, nhưng giải pháp khác được hoan nghênh.)

Answer 1

Bạn có thể sử dụng nút Bật để buộc cửa sổ bật lên và để nhất quán không sử dụng vị trí con trỏ, mà là vị trí điều khiển.

procedure TForm1.Button1Click(Sender: TObject); 
var 
    pt : TPoint; 
begin 
    Pt.X := Button1.Left; 
    Pt.Y := Button1.Top+Button1.Height; 
    pt := ClientToScreen(Pt); 
    PopupMenu1.Popup(pt.x,pt.y); 
end; 

Sau đó bạn có thể thêm "Glyph" bằng cách sử dụng một Delphi 2010 nút, hoặc một phiên bản TBitBtn trước và gán thuộc tính bitmap/glyph đến một hình ảnh thích hợp và sắp xếp đúng.

Answer 2

Bạn không đề cập đến phiên bản Delphi bạn đang sử dụng, nhưng trong Delphi 2010 TButton có tính chất mới cho điều này : DropDownList có thể được liên kết với một TPopupMenu để xác định các mục menu và Style có thể được đặt thành bsSplitButton.

Nút này tạo ra một nút mà bạn có thể nhấn cũng có mũi tên thả xuống ở bên phải, Để làm cho menu bật lên khi bạn nhấp vào bên trái mũi tên, mã này trong trình xử lý nhấn nút sẽ thực hiện công việc.

procedure TForm1.Button1Click(Sender: TObject); 
var 
    CursorPos: TPoint; 
begin 
    GetCursorPos(CursorPos); 
    PopupMenu1.Popup(CursorPos.X, CursorPos.Y); 
end; 

trong các phiên bản trước của Delphi Tôi nghĩ bạn phải sử dụng TToolBar.