Colocar uma data esta no edit em um Application.Messagebox?
14/03/2006
0
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
Posts
14/03/2006
Paulocesar1301
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);
14/03/2006
Exvasp
Application.Messagebox(PChar(´Minha data: ´ + SeuEdit.Text), ´Seu Caption´, MB_IconINFORMATION);
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
14/03/2006
Exvasp
Application.Messagebox(PChar(´Minha data: ´ + SeuEdit.Text), ´Seu Caption´, MB_IconINFORMATION);
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
14/03/2006
Exvasp
Application.Messagebox(PChar(´Minha data: ´ + SeuEdit.Text), ´Seu Caption´, MB_IconINFORMATION);
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
14/03/2006
Exvasp
Application.Messagebox(PChar(´Minha data: ´ + SeuEdit.Text), ´Seu Caption´, MB_IconINFORMATION);
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;
14/03/2006
Rjun
Clique aqui para fazer login e interagir na Comunidade :)