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

Question

Boa noite, 
Preciso de um C&oacute;digo para Delphi 7 com a Op&ccedil;&atilde;o: Salvar? - Sim ou N&atilde;o.
 
Quando coloco um ShowMessage(Deseja realmente Salvar?), o que acontece &Eacute; que a &uacute;nica o&ccedil;&atilde;o que me &eacute; exposta &eacute; Ok.
Preciso da Op&ccedil;&atilde;o Sim ou N&atilde;o para que eu escolha.
 
Obrigado
 
JOSE DE FREITAS

Answer

Use messagebox

Answer

if messagedlg('Para acessar as alternativas, voc&ecirc; deve primeiramente salvar estas informa&ccedil;&otilde;es. Deseja Salvar Agora?',mtconfirmation,mbokcancel,0) = 1 then begin

1 = sim

Answer

JOSE DE FREITAS

Complementando o Eliseu F A Jr, eis a sintaxe:

if MessageBox(HANDLE, 'Deseja salvar?', 'Aviso', MB_YESNO + MB_ICONQUESTION) = idyes then
// aqui voc&ecirc; coloca o c&oacute;digo para salvar

ou mesmo

if Application.MessageBox('Deseja salvar?', 'Aviso', MB_YESNO + MB_ICONQUESTION) = idyes then
// aqui voc&ecirc; coloca o c&oacute;digo para salvar

Pesquise sobre o MessageBox. Tem coisas bem interessantes.

Abra&ccedil;o.

Answer

Agrade&ccedil;o a aten&ccedil;&atilde;o de voc&ecirc;s que est&atilde;o tentando me ajudar. Quero informar-lhes que sou iniciante, com pouca experi&ecirc;ncia em Programa&ccedil;&atilde;o. Mas Vamos l&aacute;: 
Baixei da Internet o C&oacute;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&eacute;m me d&aacute; as Op&ccedil;&otilde;es de : Sim, N&atilde;o e Cancelar.
Eu quero usar s&oacute; Sim e N&atilde;o, portanto quero cancelar a Op&ccedil;&atilde;o Cancelar.
 
Se eu alterar o C&oacute;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&atilde;o ele Salva o Arquivo.
D&aacute; pra me ajudar a resolver esse problemas.
 
Grato
 
JOSE DE FREITAS

Answer

procedure Tfrm_CorPersonalizada.Btn_SalvarClick(Sender: TObject);
begin
if  Application.MessageBox('Deseja realmente Salvar?','',MB_YESNO+ MB_ICONINFORMATION) = ID_YES then
    ADOQuery1.Post 
else
    ADOQuery1.Cancel;
end;

Answer

Reginaldo, muito obrigado. Agora j&aacute; estou no trabalho mas &agrave; noite, em casa, vou implementar no meu Form e dever&aacute; dar certo.
Valeu Eliseu.
Valeu TerraSkilll
 
Meu muito obrigado a todos
 
Abra&ccedil;os
 
JOSE DE FREITAS

Answer

Boa noite, deu certo realmente o C&oacute;digo indicado. Agora mais uma dica , voc&ecirc;s que s&atilde;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&atilde;o clico na coluna Nome no DBGrid para ordenar em ordem alfab&eacute;tica o Arquivo aparece com o nome editado. Parece que o Programa n&atilde;o est&aacute; atualizando.
 
Como fazer para isso n&atilde;o acontecer.
 Usei o ADOQuery1. Refresh mas n&atilde;o resolveu.
 
Um abra&ccedil;o
 
JOSE DE FREITAS

Answer

JOSE DE FREITAS
N&atilde;o entendi muito bem o que voc&ecirc; est&aacute; fazendo. Esse DBGrid &eacute; uma lista de arquivos, &eacute; isso? E, ao salvar as altera&ccedil;&otilde;es, voc&ecirc; queria gravar a altera&ccedil;&atilde;o do nome do arquivo na tabela?

Abra&ccedil;o.

Answer

Bom dia, &eacute; justamente isso. Vou gravando os nomes dos produtos e eles v&atilde;o aparecendo no DBGrid onde fa&ccedil;o a consulta. Ent&atilde;o quando altero o nome de um produto j&aacute; gravado e salvo s&oacute; depois de eu clicar no BDGrid para ordenar por qualquer uma das colunas &eacute; que o produto aparece com o nome alterado . Quando abro o DBgrid o nome do produto ainda est&aacute; o antigo ao clicar para ordenar por exemplo na Coluna C&oacute;digo a&iacute; o novo nome aparece no DBGrid atualizado.
 
Um abra&ccedil;o
 
JOSE DE FREITAS

Answer

JOSE DE FREITAS
Se a sua fun&ccedil;&atilde;o de ordenar ao clicar fecha (Close ou Active := false) e abre novamente o ADOQuery1, &eacute; por isso que ele funciona, j&aacute; que os dados s&atilde;o recarregados. O que voc&ecirc; pode fazer (n&atilde;o &eacute; a melhor solu&ccedil;&atilde;o, na minha opini&atilde;o) &eacute; fechar e abrir o ADOQuery1 a cada altera&ccedil;&atilde;o. Por exemplo:

[CODE=rich]procedure Tfrm_CorPersonalizada.Btn_SalvarClick(Sender: TObject);
begin
if  Application.MessageBox('Deseja realmente Salvar?','',MB_YESNO+ MB_ICONINFORMATION) = ID_YES then
    ADOQuery1.Post 
else
    ADOQuery1.Cancel;

ADOQuery1.Close;
  ADOQuery1.Open;
end;[/CODE]

Abra&ccedil;o.

Answer

Bom, quero agradecer a aten&ccedil;&atilde;o de todos voc&ecirc;s. Consegui com a ajuda de voc&ecirc;s resolver os problemas que tinha no meu Programa.
 
Muito obrigado
 
Um abra&ccedil;o
 
JOSE DE FREITAS

Ferramentas

Mover Tópico