如何现象这样的窗体(100分)

L

liyinwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-02-11

• #1

以下的图片是 Delphi 编辑器窗口

我要实现的不是它的内容，而是它的边界
它的边界可以用拖动鼠标的方法来改变大小的，我就是想要实现它这个功能。
1.要是窗体；
2.通过拖动边上改变窗体大小，鼠标指针会知道改变形状；
3.没有标题栏，边框有没有都可以。

 

M

menzhe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-02-11

• #2

重载 Tfrom createparams!传入想要的窗口类型即可
procedure CreateParams(var Params:Tcreateparams);override;
......
......
procedure CreateParams(var Params:Tcreateparams);
begin
inherited;
with paramsdo
style:=(style or WS_POPUP) and (not WS_DLGFRAME)
end;
1.用的是tfrom，是窗体！
2.既然是原来的那个tform，普通的窗体改变大小是指针什么样自然这个也是
3.重载的代码实现没有标题栏

 

L

liyinwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-02-11

• #3

谢谢 menzhe 兄！问题已经基本解决了，效果如下
BorderStyle := bsSizeToolWin;

但是边框是立体的，我想美观一点，做成平面的，效果如下
BorderStyle := bsNone;
BorderStyle := 1;
Color := clBlack;

但是还要保持鼠标拖动改变窗体大小的性质，有方法吗？

 

G

gencheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-02-14

• #4

修改style的参数。在MSDN中有详细介绍。好像我原来做的一个组件中也遇到这种情况，要不然你查一下大富翁离线包（前几年的），里面有style参数的设置。

 

M

menzhe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-02-14

• #5

你是不能直接设置BorderStyle的，那样就不能改变大小什么的啦！要靠
去掉style的某个值才行！
但是windows的窗体好像都是3d的！

 

L

liyinwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-04-21

• #6

多人接受答案了。