我做了一个监测系统,运行后,当需要退出的时候,点击主窗体的关闭按钮,发现程序并未结束,仍在运行状态,只有点击我加入代码(formmain.close;)的"退出"按钮才可以.

窗体的关闭按钮到底起什么作用啊,

一旦用户没有点退出按钮而是直接点击窗体的关闭按钮,再次运行系统的时候就会报错.想把窗体的关闭按钮屏蔽掉,但在属性里又找不到.

帮帮我.

你可以试试下面代码
var
hwd:hwnd;
i:integer;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
hwd:=GetSystemMenu(form1.Handle,false);
i:=GetMenuItemCount(hwd);
RemoveMenu(hwd,i-1,MF_DISABLED Or MF_BYPOSITION);
DrawMenuBar(hwd);

end;

版主,你太可爱了,感激感激,,已经屏蔽掉了.
那我还想请教,为什么那个关闭按钮起不了结束程序的作用啊,有它岂不多此一举,有没有办法通过程序代码重新编写一下它的功能呢?

这个问题我还真无法准确的答复你，我也为你所遇到的现象感到奇怪。不如你再新建一个工程，什么代码也不写，然后试一下关闭好不好使。

我试了，挺好使的，那为什么我的那个运行之后点主菜单的关闭按钮就结束不了程序呢，

你的主界面应该不是第一个创建的,你可能有登录或者启动界面,你关闭的时候只是关闭了一个窗体,而不是应用程序本身,在进程清单里还有你的程序实例.所以要想关闭应用程序最好在主界面的close事件中添加Application.terminate;

[此贴子已经被作者于2006-5-17 11:25:40编辑过]