Salvar com Opção de Sim ou Não - Delphi 7 - Resolvido

Use messagebox

Agradeço a atenção de vocês que estão tentando me ajudar. Quero informar-lhes que sou iniciante, com pouca experiência em Programação. Mas Vamos lá:
Baixei da Internet o Código abaixo e o Adaptei para o meu Caso:

procedure Tfrm_CorPersonalizada.Btn_SalvarClick(Sender: TObject);
Var
Result: Integer;
begin
Result:= Application.MessageBox('Deseja realmente Salvar?','',MB_YESNOCANCEL+ MB_ICONINFORMATION);

case Result of
2: ADOQuery1.Cancel;
6: ADOQuery1.Post;
7: ADOQuery1.Cancel;
end;

Desse jeito ele funciona porém me dá as Opções de : "Sim, Não e Cancelar".
Eu quero usar só "Sim e Não", portanto quero cancelar a Opção Cancelar.

Se eu alterar o Código acima para:


procedure Tfrm_CorPersonalizada.Btn_SalvarClick(Sender: TObject);
Var
Result: Integer;
begin
Result:= Application.MessageBox('Deseja realmente Salvar?','',MB_YESNO+ MB_ICONINFORMATION);

case Result of
2: ADOQuery1.Cancel;
6: ADOQuery1.Post;

end;


Mesmo eu Clicando em Não ele Salva o Arquivo.
Dá pra me ajudar a resolver esse problemas.

Grato

JOSE DE FREITAS

Reginaldo, muito obrigado. Agora já estou no trabalho mas à noite, em casa, vou implementar no meu Form e deverá dar certo.
Valeu Eliseu.
Valeu TerraSkilll

Meu muito obrigado a todos

Abraços

JOSE DE FREITAS

Boa noite, deu certo realmente o Código indicado. Agora mais uma dica , vocês que são cobas no assunto. Quando abro um arquivo e o edito, por exemplo mudo seu nome e salvo abro o DBGrid com o nome antido então clico na coluna "Nome" no DBGrid para ordenar em ordem alfabética o Arquivo aparece com o nome editado. Parece que o Programa não está atualizando.

Como fazer para isso não acontecer.
Usei o ADOQuery1. Refresh mas não resolveu.

Um abraço

JOSE DE FREITAS

Bom dia, é justamente isso. Vou gravando os nomes dos produtos e eles vão aparecendo no DBGrid onde faço a consulta. Então quando altero o nome de um produto já gravado e salvo só depois de eu clicar no BDGrid para ordenar por qualquer uma das colunas é que o produto aparece com o nome alterado . Quando abro o DBgrid o nome do produto ainda está o antigo ao clicar para ordenar por exemplo na Coluna Código aí o novo nome aparece no DBGrid atualizado.

Um abraço

JOSE DE FREITAS

Bom, quero agradecer a atenção de todos vocês. Consegui com a ajuda de vocês resolver os problemas que tinha no meu Programa.

Muito obrigado

Um abraço

JOSE DE FREITAS