我自己也在试,加了这样一段代码,菜单可以恢复,但新的问题出现了,所有的图标包括窗口的最大化、最小化图标都变的很小,连窗体的滚动条大小都变了!代码是这样的:
var
  Form1: TForm1;
  MyNCM: TNonClientMetrics;                
  OriginalWidth, OriginalHeight: Integer;  MyNCM.cbSize := SizeOf(TNonClientMetrics);  {set the size of the buttons to the original size}
  MyNCM.iCaptionWidth  := OriginalWidth;
  MyNCM.iCaptionHeight := OriginalHeight;  SystemParametersInfo(SPI_SetNonClientMetrics,SizeOf(TNonClientMetrics),
                       @MyNCM,SPIF_SENDWININICHANGE);