我自己也在试,加了这样一段代码,菜单可以恢复,但新的问题出现了,所有的图标包括窗口的最大化、最小化图标都变的很小,连窗体的滚动条大小都变了!代码是这样的:
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);
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);
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货