basefrm.pas

来自「NetHook API 对战平台内核库是一套实现时下流行的网络对战平台[如浩方、」· PAS 代码 · 共 32 行

unit BaseFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TBaseForm = class(TForm)
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  public

  end;
  
implementation

{$R *.dfm}

{ TBaseForm }

procedure TBaseForm.CreateParams(var Params: TCreateParams);
begin
  inherited;
  
  Params.Style := Params.Style or WS_SYSMENU;
  Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
end;

end.