Controller.pas
上传用户:mjqmds
上传日期:2022-05-05
资源大小:2827k
文件大小:1k
- unit Controller;
- interface
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs;
- type
- TCForm = class(TForm)
- procedure FormCreate(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
- var
- CForm: TCForm;
- implementation
- {$R *.dfm}
- procedure TCForm.FormCreate(Sender: TObject);
- begin
- SetWindowLong(Handle,GWL_STYLE,GetWindowLong(Handle, GWL_STYLE) or WS_CHILD or WS_CLIPCHILDREN or WS_CLIPSIBLINGS);
- // SetWindowLong(Handle,GWL_EXSTYLE,GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_APPWINDOW);
- end;
- end.