问一个很简单的问题.如何能作出一个From,有标题栏，但没有三个标题栏Button?(50分)

rixin · 2000-01-02

修改from的border style屬性

Jams · 2000-01-02

设置Form的有关属性，如置最大、最小按钮为False等。

SuperMMX · 2000-01-02

看清要求，人家不要按钮，不是unenable. 设border style属性还是比较简单的

churchill · 2000-01-02

设border style属性,关闭按钮是没法去掉的. 设Form.BorderIcons.biSystemMenu.Enabled为False

searching · 2000-01-07

将BorderStyle设成Single 在BorderIcon中设成False

wzs · 2000-01-08

BorderStyle:=bsSizeToolWin 在BorderIcon:=[] (delphi5)

Liu JZX · 2000-01-10

下面方法也还可以 type   TForm1 = class(TForm)   private     { Private declarations }   public     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 xor WS_SYSMENU; end;

jet · 2000-01-10

在object inspector中把BorderIcons中的东东都false掉！

mikecool · 2000-01-10

实在想用的话，还有一个很绝的方法，你选择FormStyle为fsNone 自己加个Label上去，然后自己截取拖动的信息，就是自己做了一个Title 虽然傻了点，但是我觉得很灵活，你可以做任何东西上去！

愚夫 · 2000-01-11

我无话可说@

fa · 2000-01-12

改bordericons和borderstyle就行。

阿蒙 · 2000-01-16

这样还不能禁止 alt+f4 从在消息处理机制 procedure mndproc（msg：tmessage）；override； 。 。 procedure tform1。mndproc（msg：tmessage）； begin if msg。message=wm_syscommand then msg.wparam:=0; inherited; end;

chuyee · 2000-02-16

将Form.BorderIcons.biSystemMenu.Enabled设为false; 若要屏蔽alt+f4可拦下wm_close消息

cAkk · 2000-07-24

时间太久，强制结束。   wjiachun

问一个很简单的问题.如何能作出一个From,有标题栏，但没有三个标题栏Button?(50分)

occult

Unregistered / Unconfirmed

rixin

Unregistered / Unconfirmed

Jams

Unregistered / Unconfirmed

SuperMMX

Unregistered / Unconfirmed

churchill

Unregistered / Unconfirmed

searching

Unregistered / Unconfirmed

wzs

Unregistered / Unconfirmed

Liu JZX

Unregistered / Unconfirmed

jet

Unregistered / Unconfirmed

mikecool

Unregistered / Unconfirmed

愚夫

Unregistered / Unconfirmed

fa

Unregistered / Unconfirmed

阿蒙

Unregistered / Unconfirmed

chuyee

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

Similar threads