标签:cal 实例代码 修改 右键 drs onmeasure Owner 弹出菜单 size
如果要修改右键弹出菜单的大小.
下面是实例代码
//--------------------------------------------------------------------------- #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; } //---------------------------------------------------------------------------
标签:cal 实例代码 修改 右键 drs onmeasure Owner 弹出菜单 size
原文地址:http://www.cnblogs.com/songr/p/6186404.html