实现方法:
重载窗体CreateParams类
在窗体公开类里申明:
procedure CreateParams(var Parames:TCreateParams);override;
procedure CreateParams(var Parames: TCreateParams);
begin
inherited CreateParams(Parames);
Parames.WinClassName:='你的窗体类名';
end;
实现方法:
重载窗体CreateParams类
在窗体公开类里申明:
procedure CreateParams(var Parames:TCreateParams);override;
procedure CreateParams(var Parames: TCreateParams);
begin
inherited CreateParams(Parames);
Parames.WinClassName:='你的窗体类名';
end;