Delphi窗口无边框时显示窗口阴影

2016-09-05 19:14:55来源:CSDN作者:WitsonX人点击

Delphi窗口无边框时显示窗口阴影
procedure CreateParams(var Params:TCreateParams);override;//........procedure TfMain.CreateParams(var Params: TCreateParams);// uncomment this if CS_DROPSHADOW is not already defined...//const//CS_DROPSHADOW = $H20000;begin  inherited;  // for XP and later only...  if (Win32MajorVersion>5) or ((Win32MajorVersion = 5) and (Win32MinorVersion>= 1)) then    Params.WindowClass.Style := Params.WindowClass.Style or CS_DROPSHADOW;end;

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台