Chamar função

Delphi

10/08/2005

galera tenho a seguinte função no meu form

procedure TFCadCidade.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
If (SBSalvar.Enabled) and (DBCBUF.Text = ´´) and (DBECidade.Text = ´´) then
begin
Close;
end
else If (SBSalvar.Enabled) and (DBCBUF.Text <> ´´) and (DBECidade.Text <> ´´) then
begin
CanClose := False;
If MessageDlg(´Deseja salvar o registro!´,mtInformation,[mbYes,mbNo],0) = mrYes then
Begin
DM.CDSCadCidade.Post;
CanClose := True;
Close;
end
else
begin
DM.CDSCadCidade.Cancel;
CanClose := True;
Close;
end;
end;
end;

Gostaria de saber como posso executar a função acima de um botão.


Demetrius

Demetrius

Curtidas 0

Respostas

Rjun

Rjun

10/08/2005

Você quer que ao clicar um botão, chame a sua função? Se for isso, basta colocar Close no OnClick do botão.


GOSTEI 0
Demetrius

Demetrius

10/08/2005

:oops: :oops:
Burrinho!!!!!!!!!!!!!!!!


GOSTEI 0
Emerson Nascimento

Emerson Nascimento

10/08/2005

refaça também sua instrução, de modo a ficar mais simples, obtendo o mesmo resultado:

procedure TFCadCidade.FormCloseQuery(Sender: TObject; 
var CanClose: Boolean);
begin
  if (SBSalvar.Enabled) then
  begin
    CanClose := (DBCBUF.Text = ´´) or (DBECidade.Text = ´´);

    if not CanClose then
    begin
       if MessageDlg(´Deseja salvar o registro!´,mtInformation,[mbYes,mbNo],0) = mrYes
       then DM.CDSCadCidade.Post
       else DM.CDSCadCidade.Cancel;
       CanClose := True;
    end;
  end;
end;



GOSTEI 0
POSTAR