Array
(
)

Colocar uma data esta no edit em um Application.Messagebox?

Exvasp
   - 14 mar 2006

Tenho a seguinte dúvida:
Não sei como colocar uma data que está em um Edit em um Application.Messagebox.

Agradeço a todos que tentaram me ajudar.


Paulocesar1301
   - 14 mar 2006

Se entendi direito:

#Código


Application.Messagebox(PChar(´Minha data: ´ + SeuEdit.Text), ´Seu Caption´, MB_IconINFORMATION);


Ou Direto de um campo data:

#Código

Application.Messagebox(PChar(´Minha data: ´ + FormatDateTime(´dd/mm/yyyy´, SeuCampo)), ´Seu Caption´, MB_IconINFORMATION);



Exvasp
   - 14 mar 2006


Citação:
Se entendi direito:

#Código


Application.Messagebox(PChar(´Minha data: ´ + SeuEdit.Text), ´Seu Caption´, MB_IconINFORMATION);


Ou Direto de um campo data:

#Código

Application.Messagebox(PChar(´Minha data: ´ + FormatDateTime(´dd/mm/yyyy´, SeuCampo)), ´Seu Caption´, MB_IconINFORMATION);


Ops me expressei errado

Obrigado por ter lido minha dúvida

Eu quero na verdade saber como colocar o conteudo de um edit(22/05/2005) entre os parametros do Application.Messagebox, Exemplo:

If Application.MessageBox(´Deseja abrir caixa para esse dia: 22/05/2005 Continua?´,´Pergunta´, MB_YESNO
+MB_DEFBUTTON2+MB_ICONQUESTION)=mrOk then


Exvasp
   - 14 mar 2006


Citação:
Se entendi direito:

#Código


Application.Messagebox(PChar(´Minha data: ´ + SeuEdit.Text), ´Seu Caption´, MB_IconINFORMATION);


Ou Direto de um campo data:

#Código

Application.Messagebox(PChar(´Minha data: ´ + FormatDateTime(´dd/mm/yyyy´, SeuCampo)), ´Seu Caption´, MB_IconINFORMATION);


Ops me expressei errado

Obrigado por ter lido minha dúvida

Eu quero na verdade saber como colocar o conteudo de um edit(22/05/2005) entre os parametros do Application.Messagebox, Exemplo:

If Application.MessageBox(´Deseja abrir caixa para esse dia: 22/05/2005 Continua?´,´Pergunta´, MB_YESNO
+MB_DEFBUTTON2+MB_ICONQUESTION)=mrOk then


Exvasp
   - 14 mar 2006


Citação:
Se entendi direito:

#Código


Application.Messagebox(PChar(´Minha data: ´ + SeuEdit.Text), ´Seu Caption´, MB_IconINFORMATION);


Ou Direto de um campo data:

#Código

Application.Messagebox(PChar(´Minha data: ´ + FormatDateTime(´dd/mm/yyyy´, SeuCampo)), ´Seu Caption´, MB_IconINFORMATION);


Ops!!! me expressei errado

Obrigado por ter lido minha dúvida

Eu quero na verdade saber como colocar o conteudo de um edit(22/05/2005) entre os parametros do Application.Messagebox, Exemplo:

If Application.MessageBox(´Deseja abrir caixa para esse dia: 22/05/2005 Continua?´,´Pergunta´, MB_YESNO
+MB_DEFBUTTON2+MB_ICONQUESTION)=mrOk then


Exvasp
   - 14 mar 2006


Citação:

Citação:
Se entendi direito:

#Código


Application.Messagebox(PChar(´Minha data: ´ + SeuEdit.Text), ´Seu Caption´, MB_IconINFORMATION);


Ou Direto de um campo data:

#Código

Application.Messagebox(PChar(´Minha data: ´ + FormatDateTime(´dd/mm/yyyy´, SeuCampo)), ´Seu Caption´, MB_IconINFORMATION);


Ops!!! me expressei errado

Obrigado por ter lido minha dúvida

Eu quero na verdade saber como colocar o conteudo de um edit(22/05/2005) entre os parametros do Application.Messagebox, Exemplo:

If Application.MessageBox(´Deseja abrir caixa para esse dia: 22/05/2005 Continua?´,´Pergunta´, MB_YESNO
+MB_DEFBUTTON2+MB_ICONQUESTION)=mrOk then


Ops desconsidere, consegui resolver:

procedure TForm1.Button2Click(Sender: TObject);
begin
If Application.MessageBox(Pchar(´Deseja abrir caixa para esse dia: ´+ Edit1.Text),´Pergunta´, MB_YESNO+MB_DEFBUTTON2+MB_ICONQUESTION)=mrOk then
begin
Edit1.SetFocus;
end;
end;


Rjun
   - 14 mar 2006

O primeiro código que o Paulo Cesar informou deve funcionar. Você testou?