打开窗体的时候，怎么让其他的窗体都不能打开呢？

Question

大家好，我的主窗体上面有Mainmenu菜单！，在上面又加了一个toolbar!请问当我打开一个窗体的时候，怎么让toolbar和Mainmenu上面的按钮都不能操作呢？
谢谢！

Answer 1

procedure TForm1.menuitem1Click(Sender: TObject);
begin
    form2:=Tform2.Create(nil);
    form2.ShowModal;
end;

Answer 2

toolbar.enabled:=false;
mainmenu.enabled:=false;

Answer 3

你的窗体.ShowModal.
模态窗体只响应当前窗口的消息，关掉以后才能继续。

Answer 4

最简洁的用 knock(天天睡觉)
toolbar.enabled:=false;
mainmenu.enabled:=false;

Answer 5

procedure TForm1.menuitem1Click(Sender: TObject);
begin
    form2:=Tform2.Create(nil);
    form2.ShowModal;
end;
form2.show  表示创建子窗口以后,父窗口还是可用的,但是form2.showmodal则表示创建子窗口以后,除非退出子窗口,否则父窗口不可用.

Answer 6

后者你干脆form1.hide把父窗口隐藏掉