Tôi có thể áp dụng kiểu vcl cho TPopupmenu như thế nào?

Question

Tôi đang sử dụng phong cách vcl trong ứng dụng Delphi XE2, nhưng khi tôi bật lên một TPopupmenu, điều này được hiển thị bằng cách sử dụng giao diện cửa sổ gốc và cảm nhận, tồn tại bất kỳ cách nào để áp dụng màu sắc vcl cho TPopUpMenu?

Answer 1

Thay TPopupmenu cho một TPopupActionBar hoặc sử dụng một lớp interposer cast TPopupMenu để TPopupActionBar.

TPopupMenu=class(Vcl.ActnPopup.TPopupActionBar); 

Ngoài ra bạn có thể đọc Adding VCL Styles support to a TPopupMenu in 2 lines of code