FormCloseQuery по нажатию кнопки

[bulldog5293]

Всем привет, банально забыл как вызывать FormCloseQuery при нажатие кнопки, пробывал так

procedure TForm1.Button4Click(Sender: TObject);
var CanClose: Boolean;
begin
Form1.FormCloseQuery(Sender,CanClose);
end;

и так

procedure TForm1.Button1Click(Sender: TObject);
var CanClose: Boolean;
begin
if MessageDlg('выйти?', mtConfirmation, [mbYes, mbNo],
	0) = mrYes
	 then CanClose := true  
   else CanClose := false; 
end;

но результат=0, мож поможет кто напомнить?

[GetMax]

Вот так можно

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
Var
  result:Integer;
begin
  Result:= MessageDlg('Выйти?',mtConfirmation,[mbYes,mbNo],0);
  If Result = mrYes then CanClose:=True
  else
  CanClose:=False
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Form1.Close;
end;

[Аватар]

Use OnCloseQuery to specify the conditions under which the form can close. An OnCloseQuery event handler returns a Boolean CanClose value that determines whether a form is allowed to close. Its default value is true.

You can use an OnCloseQuery event handler to ask users if they are sure they really want the form closed immediately. For example, you can use the handler to display a message box that prompts the user to save a file before closing the form.

The TCloseQueryEvent type points to the method that determines whether a form can be closed. The value of the CanClose parameter determines if the form can close or not.

Я думаю вы и не знали как ее вызывать, и зачем ее вообще вызывать?

[bulldog5293]

спасибо GetMax, я уж и забыл что formclose вызывает FormCloseQuery