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

Question

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 · Answer

Se entendi direito:[code:1:e771e5df4f]Application.Messagebox(PChar(�Minha data: � + SeuEdit.Text), �Seu Caption�, MB_IconINFORMATION);[/code:1:e771e5df4f]Ou Direto de um campo data:[code:1:e771e5df4f]Application.Messagebox(PChar(�Minha data: � + FormatDateTime(�dd/mm/yyyy�, SeuCampo)), �Seu Caption�, MB_IconINFORMATION);[/code:1:e771e5df4f]...

Exvasp · Answer

[quote:bc383fa186=�paulocesar1301�]Se entendi direito:[code:1:bc383fa186]Application.Messagebox(PChar(�Minha data: � + SeuEdit.Text), �Seu Caption�, MB_IconINFORMATION);[/code:1:bc383fa186]Ou Direto de um campo data:[code:1:bc383fa186]Application.Messagebox(PChar(�Minha data: � + FormatDateTime(�dd/mm/yyyy�, SeuCampo)), �Seu Caption�, MB_IconINFORMATION);[/code:1:bc383fa186][/quote:bc383fa186]Ops me expressei erradoObrigado por ter lido minha d�vidaEu 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 · Answer

[quote:e61925b042=�paulocesar1301�]Se entendi direito:[code:1:e61925b042]Application.Messagebox(PChar(�Minha data: � + SeuEdit.Text), �Seu Caption�, MB_IconINFORMATION);[/code:1:e61925b042]Ou Direto de um campo data:[code:1:e61925b042]Application.Messagebox(PChar(�Minha data: � + FormatDateTime(�dd/mm/yyyy�, SeuCampo)), �Seu Caption�, MB_IconINFORMATION);[/code:1:e61925b042][/quote:e61925b042]Ops me expressei erradoObrigado por ter lido minha d�vidaEu 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 · Answer

[quote:7883d1c22c=�paulocesar1301�]Se entendi direito:[code:1:7883d1c22c]Application.Messagebox(PChar(�Minha data: � + SeuEdit.Text), �Seu Caption�, MB_IconINFORMATION);[/code:1:7883d1c22c]Ou Direto de um campo data:[code:1:7883d1c22c]Application.Messagebox(PChar(�Minha data: � + FormatDateTime(�dd/mm/yyyy�, SeuCampo)), �Seu Caption�, MB_IconINFORMATION);[/code:1:7883d1c22c][/quote:7883d1c22c]Ops!!! me expressei erradoObrigado por ter lido minha d�vidaEu 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 · Answer

[quote:f7c5a584f9=�EXVASP�][quote:f7c5a584f9=�paulocesar1301�]Se entendi direito:[code:1:f7c5a584f9]Application.Messagebox(PChar(�Minha data: � + SeuEdit.Text), �Seu Caption�, MB_IconINFORMATION);[/code:1:f7c5a584f9]Ou Direto de um campo data:[code:1:f7c5a584f9]Application.Messagebox(PChar(�Minha data: � + FormatDateTime(�dd/mm/yyyy�, SeuCampo)), �Seu Caption�, MB_IconINFORMATION);[/code:1:f7c5a584f9][/quote:f7c5a584f9]Ops!!! me expressei erradoObrigado por ter lido minha d�vidaEu 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[/quote:f7c5a584f9]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 · Answer

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