caputurar formato fecha

[Casimiro Noteví]

Hola, por favor, no sé si leiste nuestra guía de estilo o quizás ha sido sólo un despiste, pero esta pregunta no tiene nada que ver con 'Internet', la paso al foro adecuado.

[ecfisa]

Hola ingmichel.

Código Delphi [-]
procedure TForm1.FormShow(Sender: TObject);
var
  Fecha :string;
begin
  Fecha := 'MM/dd/yyyy'; // Usa 'MM'. (con 'mm' no funciona)
  DateTimePicker1.Perform(DTM_SETFORMAT,DWORD(NIL),DWORD(Fecha));
  ...
end;

Cuando leas la guía de estilo como te aconsejó Casimiro, revisá el punto [ dos ].

Un saludo.

[ingmichel]

hola ecfisa probe el codigo que me diste y el programa no corre, marcandome el siguiente error

[Error] Unit1.pas(158): Undeclared identifier: 'DTM_SETFORMAT'

cual seria el problema ?

Empezado por ecfisa

Hola ingmichel.

Código Delphi [-]
procedure TForm1.FormShow(Sender: TObject);
var
  Fecha :string;
begin
  Fecha := 'MM/dd/yyyy'; // Usa 'MM'. (con 'mm' no funciona)
  DateTimePicker1.Perform(DTM_SETFORMAT,DWORD(NIL),DWORD(Fecha));
  ...
end;

Cuando leas la guía de estilo como te aconsejó Casimiro, revisá el punto [ dos ].

Un saludo.

[[oscarac]]

Intenta colocar asi

Código Delphi [-]
DateTimePicker1.Format := 'MM/dd/yyyy';

y nos comentas

[ecfisa]

Empezado por ingmichel

hola ecfisa probe el codigo que me diste y el programa no corre, marcandome el siguiente error

[Error] Unit1.pas(158): Undeclared identifier: 'DTM_SETFORMAT'

cual seria el problema ?

Hola ingmichel.

Tenés que incluir la unit CommCtrl.

Código Delphi [-]

uses CommCtrl;

procedure TForm1.FormShow(Sender: TObject);
var
  Fecha :string;
begin
  Fecha := 'MM/dd/yyyy'; // Usa 'MM'. (con 'mm' no funciona)
  DateTimePicker1.Perform(DTM_SETFORMAT,DWORD(NIL),DWORD(Fecha));
end;

Un saludo.