var ncm: TNonClientMetrics; begin ncm.cbSize: = SizeOf (TNonClientMetrics); {get old non client metrics} SystemParametersInfo (SPI_GETNONCLIENTMETRICS, SizeOf (TNonClientMetrics), @ncm, 0); {lfCaptionFont - regular captions lfSmCaptionFont - small captions lfMenuFont - menus lfStatusFont - status bars lfMessageFont - message boxes} ncm.lfMessageFont.lfFaceName: = 'italics'; ncm.lfMessageFont.lfHeight: = 18; ncm.lfCaptionFont.lfHeight: = 18; // entry word ncm.lfMenuFont.lfHeight: = 18 ; // Menu {SET New Non Client Metrics} SystemParametersInfo (SPI_SETNONCLIENTMETRICS, SIZEOF (TNONCLIENTMETRICS), @ncm, 0);
E_mail: yanleigis@21cn.com
