如果要修改右键弹出菜单的大小. (另一个办法就是自己绘制了)
- 先设置Screen->MenuFont->Size = 30; 你希望设置的字体大小
- 然后将 PopMenu的OwnerDraw属性设置为true
- 然后设置每个菜单项(TMenuItem)的OnMeasureItem 事件过程,设置菜单项的高度。
下面是实例代码
//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { Screen->MenuFont->Size = 30; } //--------------------------------------------------------------------------- void __fastcall TForm1::N11MeasureItem(TObject *Sender, TCanvas *ACanvas, int &Width, int &Height) { Height = ACanvas->TextHeight("高") + 10; } //---------------------------------------------------------------------------