重载CreateParams即可。
procedure TForm2.CreateParams(var para: TCreateParams);
begin
inherited;
Para.ExStyle:=Para.ExStyle+$1000;
end;