protected
procedure CreateParams(var Params: TCreateParams);override;
procedure CreateParams(var Params: TCreateParams);override;
procedure TMainForm.CreateParams(var Params: TCreateParams);
begin
inherited;
begin
inherited;
with Params do
begin
//Style := Style and (not WS_SYSMENU);
Style := Style and (not WS_MINIMIZEBOX);
Style := Style and (not WS_MAXIMIZEBOX);
end;
end;
begin
//Style := Style and (not WS_SYSMENU);
Style := Style and (not WS_MINIMIZEBOX);
Style := Style and (not WS_MAXIMIZEBOX);
end;
end;
本文转自 byteh 51CTO博客，原文链接：http://blog.51cto.com/byteh/68432，如需转载请自行联系原作者
