请问我想在用户点击窗体右上角的关闭控制钮时，让用户确认是否真的关闭，应该怎么做？？

Question

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 if ... then
   CanClose:=false
 else
   CanClose:=true;
end;

Answer 1

在Close事件中写。
if not 关闭 then
  Action :=  caNone;

Answer 2

CLOSEQUERY事件写
IF 确认 THEN
  CLSOE

Answer 3

广告插播http://www.csdn.net/Expert/topic/457/457590.shtm
帮忙多谢

Answer 4

procedure TFLeftPost.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
//canclose=true 则关闭窗口
//canclose=false 则不关闭窗口
end;