1.在声明窗体类时加入:
- private
- procedure CreateParams(var Params: TCreateParams); override;
- procedure TFrm_Main.CreateParams(var Params: TCreateParams);
- begin
- inherited;
- Params.ExStyle := 33554432; //0x 02 00 00 00
- end
联系客服