Tive problemas com o MessageDlg. Simplesmente ele nunca entrava no
Yes. Isso pra mim não faz sentido. Como se fosse um erro no Delphi.
Testei vários exemplos da internet e até exemplos meus que funcionam
antes e nunca passava pelo Yes pegando mrYes.
Para resolver isso fiz uma abordagem da seguintes maneira:
botao:=0;//tipo inteiro
botao:=MessageDlg ('Você deseja salvar o Texto da Mensagem?',
mtInformation, [mbYes, mbNo, mbCancel], 0 );
Case botao of
6: //Sim
Begin
//comando para o Yes
end;
7: //nao
Begin
// Instrucoes para No ...
End;
2: //cancel
Begin
// Instrucoes para Cancela ...
Exit;
End;
--- Em delphi-br@yahoogrupos.com.br, ADRIANO LUCAS KUSE PASCHOAL
[EMAIL PROTECTED] escreveu
Cara..
Sinceramente não consegui descobrir erro no teu código..Desculpe..
Vc tentou debugar e ver passo a passo se ele entra no if??
t+
[]'s
Marcos Abreu Ferreira disse:
Adriano
Criei uma aplicacao nova com um SpeedButton e 2 Label e coloquei o
seguinte
codigo e fncionou direitinho
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if MessageDlg('Deseja excluir este registro?', mtConfirmation,
[mbYes,mbNo],0) = mryes then
begin
Label1.Caption := 'yes';
Label2.Caption := 'yes';
end
else
begin
Label1.Caption := 'no';
Label2.Caption := 'no';
end;
end;
So que quando uso o IF na aplicacao que ja tenho desenvolvida, ele
nunca
entra no IF, independendo se clicar no YES ou no NO
procedure TfrmCliente.SpeedButton4Click(Sender: TObject);
begin
if MessageDlg('Deseja excluir este registro?', mtConfirmation,
[mbYes,mbNo],0) = mryes then
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('DELETE FROM cliente WHERE cli_id =
'++edID.Text++' ');
ADOQuery1.ExecSQL;
ADOQuery0.Close;
ADOQuery0.Open;
edID.Text := ADOQuery0.FieldValues['cli_id'];
edCodigo.Text := ADOQuery0.FieldValues['cli_codigo'];
edNome.Text:= ADOQuery0.FieldValues['cli_nome'];
edRazaoSocial.Text := ADOQuery0.FieldValues['cli_razaosocial'];
edEndereco.Text:= ADOQuery0.FieldValues['cli_endereco'];
edMunicipio.Text := ADOQuery0.FieldValues['cli_municipio'];
edEstado.Text := ADOQuery0.FieldValues['cli_estado'];
edIE.Text := ADOQuery0.FieldValues['cli_ie'];
edRamal.Text := ADOQuery0.FieldValues['cli_ramal'];
edEmail.Text := ADOQuery0.FieldValues['cli_email'];
medCEP.Text:= ADOQuery0.FieldValues['cli_cep'];
medCNPJ.Text := ADOQuery0.FieldValues['cli_cnpj'];
medTelefone.Text := ADOQuery0.FieldValues['cli_telefone'];
medFax.Text:= ADOQuery0.FieldValues['cli_fax'];
end;
end;
[ ]'s
*
* [EMAIL PROTECTED] *
* GNU/Linux Debian *
* ICQ 3426043 *
*
Abençoados sejam os pessimistas por terem incitado a criação dos
mecanismos para ``backup``.
- Original Message -
From: ADRIANO LUCAS KUSE PASCHOAL [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, March 25, 2003 9:25 AM
Subject: Re: [delphi-br]
Olá Marcos
Só não entendi porque duas vezes o mesmo teste e a mesma
mensagem..mas
deixa prá lá e usa eles assim..
if MessageDlg('Deseja excluir este registro?', mtConfirmation, [mbYes,
mbNo],0) = mrYes then
if MessageDlg('Deseja excluir este registro?', mtConfirmation,
[mbYes,mbNo],0) = mryes then
t +
[]'s
Adriano Lucas
Canela-RS
ICQ 168677279
Marcos Abreu Ferreira disse:
Prezados
Alguem poderia me dizer o que deve estar errado nos meus IFs
abaixo. Tanto
faz se clicar no YES ou no NO que nao entra no IF de forma alguma.
if MessageDlg('Deseja excluir este registro?', mtConfirmation,
[mbYes,
mbNo], 0, mbYes) = mrYes then
if MessageDlg('Deseja excluir este registro?', mtConfirmation,
[mbYes,
mbNo], 0) = mryes then
Estou usando o Delphi 7.0. Existiria uma forma ded mudar de
YES/NO para
SIM/NÃO na mensagem?
[ ]'s
*
* [EMAIL PROTECTED] *
* GNU/Linux Debian *
* ICQ 3426043 *
*
Tenho Windows há um ano e nunca deu pau. Qualquer dia eu instalo
no HD.
--
POP. Nem parece internet grátis.
Seja POP você também!
Acesse: http://www.pop.com.br/pop_discador.php e baixe o POPdiscador.
--
--
POP. Nem parece internet grátis.
Seja POP você também!
Acesse: