Tenta
If MessageBox(pchar('Excluir Registro?'+(dm.TBL_clientesNOME.value)),
'Exclusão',
Mb_applmodal+Mb_iconquestion+Mb_yesno+Mb_defbutton1) = 6 then
Eu estava com o mesmo problema e um dos amigos da lista recomendou fazer
assim
[]s
Miguel Villacorta
Programador Delphi
Coord. SGQ
DPF Auto Peças Ltda.
Uniban - Turma AS31A.3 N° 66
+55 11 4446-4100 R 4126
+55 11 7174-3136
Cajamar - SP
[EMAIL PROTECTED]
Msn [EMAIL PROTECTED]
Ap 22.17 "E a Ruah e a noiva dizem: Vem. E quem ouve, diga: Vem. E quem tem
sede, venha; e quem quiser, receba de graça a água da vida".
Ap 22.20 "Aquele que testifica estas coisas diz: Certamente cedo venho. Amém
vem, YHWH Yeshua".
-------Mensagem original-------
De: Jaime
Data: 03/30/06 12:25:51
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [Delphi-br] messagebox
If Application.MessageBox('Excluir Registro?'+(dm.TBL_clientesNOME.value),
'Exclusão',
Mb_applmodal+Mb_iconquestion+Mb_yesno+Mb_defbutton1) = 6 then
O comando acima dá o seguinte erro:
[Error] con_cliente.pas(139): Incompatible types: 'String' and 'PAnsiChar'
Se eu fizer como no seu exemplo:
If Application.MessageBox('Excluir
Registro?'+(dm.TBL_clientesNOME.value).asstring, 'Exclusão',
Mb_applmodal+Mb_iconquestion+Mb_yesno+Mb_defbutton1) = 6 then
O erro é o seguinte:
[Error] con_cliente.pas(139): Record, object or Class type required
_____
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
Nome de Cícero
Enviada em: quinta-feira, 30 de março de 2006 09:17
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [Delphi-br] messagebox
E não é assim?
"suamensagem"+datamodule.query.fieldbyname('nomedocampo').asstring
Ou
"suamensagem"+query.fieldbyname('nomedocampo').asstring
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Nome de Jaime
Enviada em: quarta-feira, 29 de março de 2006 23:30
Para: delphi-br@yahoogrupos.com.br
Assunto: [Delphi-br] messagebox
Olá pessoal,
Como fazer para adicionar à mensagem do application.messagebox o conteúdo de
Um dbedit ou de um campo da tabela?
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
_____
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo! <http://br.Yahoo.com/info/utos.HTML> .
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
_______________________________________________________
Novo Yahoo! Messenger com voz: Instale agora e faça ligações de graça.
http://br.messenger.yahoo.com/
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
