Form

Question

Como fa�o para sabe, ao fechar o form pelo bot�o x da janela, que estou fechado este form..

Por exemplo no evento OnClose eu quero por:
Se form x ent�o
fa�a x coisa
Se form y ent�o
fa�a y coisa
....

OBS.: O Tform eh o mesmo para todos, ele eh chamado v�rias vezes mas cada um com dados diferente.

Lfernandos · Answer

Vc precisa fazer os teste no evento OnCloseQuery, abaixo um exemplo:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if (Sender is TForm1) then begin
CanClose := MessageDlg(�Deseja relmente sair?�, mtWarning, [mbYes, mbNo], 0) = IDYES;
end;
end;