Fórum Como faço para incluir um codigo no showmessage? #288710
19/07/2005
0
Como faço para incluir um codigo no showmessage?
Meu codigo esta assim
procedure TForm7.DBGrid1DblClick(Sender: TObject);
var
vbc: real;
begin
if application.messagebox(´Deseja excluir essa linha?´,´Aviso´,36)=idYes
then
begin
if form6.query1codigo.value = 500 then
begin
showmessage(´Esse codigo eh automatico nao pode ser excluido´);
end else
form6.query1.delete;
Entao nesse show message quero que apareça assim:
(´Esse codigo 500 eh um codigo automatico, nao pode ser excluido´);
Como eh que eu faço entao para aparecer assim?
Obrigado pela ajuda amigos
Adriano.
Adriano_servitec
Curtir tópico
+ 0Posts
19/07/2005
Adriano_servitec
Blz
Obrigado
Gostei + 0
19/07/2005
Nildo
procedure TForm7.DBGrid1DblClick(Sender: TObject);
var
vbc: real;
begin
if application.messagebox(´Deseja excluir essa linha?´,´Aviso´,36)=idYes then
if form6.query1codigo.value = 500 then
showmessage(´Esse codigo ´ + Inttostr( form6.query1codigo.value ) + ´ eh automatico nao pode ser excluido´);
Gostei + 0
19/07/2005
Marcio.theis
showmessage(´Esse codigo ´ + IntToStr(form6.query1codigo.value) + ´ eh um código automático, nao pode ser excluido´);
Gostei + 0
19/07/2005
Rjun
resourcestring sMsgAviso = ´Esse codigo ¬d é um codigo automático e não pode ser excluído´;
Depois, basta fazer isso:
ShowMessage(Format(sMsgAviso, [query1Codigo]));
Gostei + 0
19/07/2005
Adriano_servitec
Nao sabia como fazer o codigo, mais tive que modificar por se tratar de numero
ficou assim
showmessage(´Esse codigo ´ + floattostr (form6.query1codigo.value) + ´ eh automatico nao pode ser excluido´);
em vez de inttostr usei floattostr para nao dar erro de compilaçao
Mai uma vez obrigado tambem pela atençao Rogerio Jun, vou testar o codigo que vc me passou tambem
T+
Amigos
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)