problemas com if elseif else
não consigo testar as 3 opções do meu MESSAGEBOX vejam
begin
If dados.Q_Usuario.State in ([dsEdit,dsInsert]) then
begin
if Application.MessageBox(´Salvar o registro antes de sair?´,´Sair´,MB_YESNOCANCEL)= id_yes then
begin
dados.Q_Usuario.Post;
close;
end
else if Application.MessageBox(´Salvar o registro antes de sair?´,´Sair´,MB_YESNOCANCEL)= id_no then
begin
dados.Q_Usuario.Cancel ;
close;
end
else
begin
Abort
end
end
else
begin
close;
end
end;
A MENSAGEM SE REPETE DUAS VEZES...COMO FAÇO????????????
begin
If dados.Q_Usuario.State in ([dsEdit,dsInsert]) then
begin
if Application.MessageBox(´Salvar o registro antes de sair?´,´Sair´,MB_YESNOCANCEL)= id_yes then
begin
dados.Q_Usuario.Post;
close;
end
else if Application.MessageBox(´Salvar o registro antes de sair?´,´Sair´,MB_YESNOCANCEL)= id_no then
begin
dados.Q_Usuario.Cancel ;
close;
end
else
begin
Abort
end
end
else
begin
close;
end
end;
A MENSAGEM SE REPETE DUAS VEZES...COMO FAÇO????????????
Rafael Santana
Curtidas 0
Respostas
Euclides
29/12/2004
Opa Amigo tudo bom ?????
Acho que para resolver seu problema voce poderia enviar a mensagem apenas uma vez e guardar seu retorno numa variavel do tipo integer e depois fazer as comparações no if :
k: integer;
k:= Application.MessageBox(´Salvar o registro antes deseja sair?´,´Sair´,MB_YESNOCANCEL);
if k = id_yes then
bloco de dados
else if k = id_no then
bloco de dados
else
bloco de dados ......
ok acho que assim voce resolveria seu problema .......
Abraços
Euclides
Acho que para resolver seu problema voce poderia enviar a mensagem apenas uma vez e guardar seu retorno numa variavel do tipo integer e depois fazer as comparações no if :
k: integer;
k:= Application.MessageBox(´Salvar o registro antes deseja sair?´,´Sair´,MB_YESNOCANCEL);
if k = id_yes then
bloco de dados
else if k = id_no then
bloco de dados
else
bloco de dados ......
ok acho que assim voce resolveria seu problema .......
Abraços
Euclides
GOSTEI 0
Rafael Santana
29/12/2004
obrigado, mano, deu certinho...
te adicionei no meu msn, fico o dia todo conectado
assim, podemos nos ajduar,...valeu t+
te adicionei no meu msn, fico o dia todo conectado
assim, podemos nos ajduar,...valeu t+
GOSTEI 0