对不起，内码有误，现在重贴，请见谅。请管理员将上篇问题删除。 大家好。 请问有什么办法可以将MessageDlg和MessageBox讯息窗口右上角的“X”关闭按钮取消或者屏蔽掉，使其不能发挥作用呢？谢谢。 不断学习 發表人 - Anonimity 於 2004/02/03 01:36:19

------
不断学习

Hi, 請試試:    

procedure TForm1.Button2Click(Sender: TObject);
begin
  with CreateMessageDialog('123'#13#10'test test no system munu', mtInformation, [mbOK, mbCancel]) do
  begin
    BorderIcons := BorderIcons -[ biSystemMenu ];
    try
      if ShowModal = mrOK then
      begin
        // something to do when user click OK!!
        ShowMessage('ok');
      end
      else
      begin
        // something to do when user click Cancel!!
        ShowMessage('cancel');
      end;
    finally
      Free;
    end;
  end;
end;