Fecha por defecto TCalendar

[leogobo]

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

[[Caral]]

Hola
Una fecha especifica:

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

Fecha actual:

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

Saludos

[[Caral]]

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

[leogobo]

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


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

[[Caral]]

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

[leogobo]

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.

[[maeyanes]]

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...