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;