Form
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.
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.
Marcela
Curtidas 0
Respostas
Lfernandos
20/05/2003
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;
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;
GOSTEI 0