Form

20/05/2003

1

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.


Responder

Posts

20/05/2003

Lfernandos

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;


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira