GARANTIR DESCONTO

Fórum Chamar função #291363

10/08/2005

0

Delphi

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

Responder

Posts

10/08/2005

Rjun

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


Responder

Gostei + 0

10/08/2005

Demetrius

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


Responder

Gostei + 0

11/08/2005

Emerson Nascimento

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;



Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar