Controller.pas
上传用户:mjqmds
上传日期:2022-05-05
资源大小:2827k
文件大小:1k
源码类别:

DirextX编程

开发平台:

Delphi

  1. unit Controller;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5.   Dialogs;
  6. type
  7.   TCForm = class(TForm)
  8.     procedure FormCreate(Sender: TObject);
  9.   private
  10.     { Private declarations }
  11.   public
  12.     { Public declarations }
  13.   end;
  14. var
  15.   CForm: TCForm;
  16. implementation
  17. {$R *.dfm}
  18. procedure TCForm.FormCreate(Sender: TObject);
  19. begin
  20.     SetWindowLong(Handle,GWL_STYLE,GetWindowLong(Handle, GWL_STYLE) or WS_CHILD or WS_CLIPCHILDREN or WS_CLIPSIBLINGS);
  21. //    SetWindowLong(Handle,GWL_EXSTYLE,GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_APPWINDOW);
  22. end;
  23. end.