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

14/03/2006

0

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

Exvasp

Responder

Posts

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

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

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

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

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

14/03/2006

Rjun

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


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar