发信人: xiao_min_()
整理人: teleme(2001-06-06 23:41:27), 站内信件
|
【 在 superluckman 的大作中提到：】
:但我想保留边框啊!!!
:......
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
procedure createparams(var params:tcreateparams);override;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure tform1.createparams(var params:tcreateparams);
begin
inherited createparams(params);
with params do
style:=(style or ws_popup) and (not ws_dlgframe);
end;
end. |
|