如何去掉窗口边框,不用borderstyle=bsNone(100分)

V

vividwang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-11

• #1

如题

 

D

dhycq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-11

• #2

既无边框又能重设大小的窗体：
procedure CreateParams(var Params: TCreateParams);
override;
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Style := Params.Style xor ws_caption xor ws_popup;
end;

 

V

vividwang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-11

• #3

To dhycq,
还是有个小边框.

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-11

• #4

适当调整 x 的值，就可观察效果！！
procedure TForm1.FormCreate(Sender: TObject);
var
hr:hrgn;
x:integer;
begin
x:=4;
hr:=createRectRgn(x,x,width-x,height-x);
setwindowrgn(handle,hr,true);
end;

 

V

vividwang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-12

• #5

答案接受了.多谢.