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

14/03/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.


Exvasp

Respostas

14/03/2006

Paulocesar1301

Se entendi direito:

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


Ou Direto de um campo data:

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



Responder Citar

14/03/2006

Exvasp

Se entendi direito:
Application.Messagebox(PChar(´Minha data: ´ + SeuEdit.Text), ´Seu Caption´, MB_IconINFORMATION);
Ou Direto de um campo data:
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


Responder Citar

14/03/2006

Exvasp

Se entendi direito:
Application.Messagebox(PChar(´Minha data: ´ + SeuEdit.Text), ´Seu Caption´, MB_IconINFORMATION);
Ou Direto de um campo data:
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


Responder Citar

14/03/2006

Exvasp

Se entendi direito:
Application.Messagebox(PChar(´Minha data: ´ + SeuEdit.Text), ´Seu Caption´, MB_IconINFORMATION);
Ou Direto de um campo data:
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


Responder Citar

14/03/2006

Exvasp

[quote:f7c5a584f9=´paulocesar1301´]Se entendi direito:
Application.Messagebox(PChar(´Minha data: ´ + SeuEdit.Text), ´Seu Caption´, MB_IconINFORMATION);
Ou Direto de um campo data:
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[/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;


Responder Citar

14/03/2006

Rjun

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


Responder Citar