怎么使当我点窗体右上角的关闭按钮谈出我所要的提示框?

Question

怎么使当我点窗体右上角的关闭按钮谈出我所要的提示框?
还有就是是最小化按钮变成灰色?

Answer 1

1、在form的closequery中加showmessage('');
2、form.bordericons.biminimize:=false;

Answer 2

OnCloseQuery事件BorderIcons
[biSystemMenu, biMaximize]

Answer 3

在ONCLOSEQUERY中实现你的第一个问题的解决方案：
Procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: olean);
var
  yourFrm:TyourFrm;
begin
  YourFrm:=TYouyRrm.create(Application);
  CnaClose:=YouerFrm.showmodal=mrok;
end;第二个问题我不知道。

Answer 4

在窗体的onCloseQuery事件中写代码

Answer 5

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   ShowMessage('提示框');
end;

Answer 6

在窗体的onCloseQuery事件中写提示代码！