Fecha por defecto TCalendar
 

Hola,

quisiera saber como hago para poner una fecha por defecto en el TCalendar, osea que cuando abra el formulario donde se encuentra el TCalendar ponga la fecha actual o cualquiera que yo quiera.

Gracias

Hola
Una fecha especifica:

Código Delphi [-]
MonthCalendar1.Date:= StrToDate('6/9/2011');

Fecha actual:

Código Delphi [-]
MonthCalendar1.Date:= Now;

Saludos

Hola
Parece que me confunci con el TMonthCalendar.
Para el TCalendar es asi:
Para una fecha especifica:

Código Delphi [-]
  Calendar1.Year:= 2011;
  Calendar1.Month:= 7;
  Calendar1.Day:= 8;

Para la fecha actual:

Código Delphi [-]
var
 Mes, dia, year: TDate;
begin
   Mes:= Now;
   dia:= Now;
   year:= Now;
   Calendar1.Day:= StrToInt(FormatDateTime('mm',dia));
   Calendar1.Month:= StrToInt(FormatDateTime('mm',Mes));
   Calendar1.Year:= StrToInt(FormatDateTime('yyyy',year));

El componente TCalendar usa la fecha en tres partes separadas, dia, mes y año, ademas el dato que adquiere es de tipo integer por eso hay que hacer la conversion tomando el dato de la fecha del sistema.
Saludos

Aparece el siguiente error para calendar1.Date:=Now;


Incomplatible type for arg no.1: Got "TDateTime", expected "AnsiString"

Hola
Repito::)

Parece que me confunci con el TMonthCalendar.
Para el TCalendar es asi:
Para una fecha especifica:

Código Delphi [-]
Calendar1.Year:= 2011;
  Calendar1.Month:= 7;
  Calendar1.Day:= 8;

Para la fecha actual:

Código Delphi [-]
var
 Mes, dia, year: TDate;
begin
   Mes:= Now;
   dia:= Now;
   year:= Now;
   Calendar1.Day:= StrToInt(FormatDateTime('mm',dia));
   Calendar1.Month:= StrToInt(FormatDateTime('mm',Mes));
   Calendar1.Year:= StrToInt(FormatDateTime('yyyy',year));

El componente TCalendar usa la fecha en tres partes separadas, dia, mes y año, ademas el dato que adquiere es de tipo integer por eso hay que hacer la conversion tomando el dato de la fecha del sistema.
Saludos

Ahora aparece el siguiente error:

Identifier indents no member "Day".
Identifier indents no member "Month".
Identifier indents no member "Year".

Una aclaracion. Estoy utilizando Lazarus.

Hola...

No he usado Lazarus y desconozco mucho de el, pero al menos en Delphi la clase TCalendar contiene una propiedad llamada UseCurrentDate, la cual tiene como valor predeterminado True y le indica al control que use la fecha actual del sistema. Así que solo tienes que hacer:

Código Delphi [-]
Calendar.UseCurrentDate := True;

Verifica si en Lazarus la clase tiene la misma propiedad y úsala.


Saludos...


Saludos...

Ya solucione esto,

Se cuadra con la propiedad DateTime asi:

Código Delphi [-]
Calendar1.DateTime:=Now;

Hola leogobo.

No sé si ya conocés la página pero aquí, entre otras cosas, encontras todas (creo) las declaraciones de clases de Lazarus: Lazarus Tutorial.

Están muy bién documentadas todas las propiedades y eventos de cada una de ellas.

Espero te sirva.

Saludos.