Como crear calendario y reloj

[Mario1980]

Hola, quisiera saber como crear un calendario en Delphi 2 como el que se ve en windows y tambien como se hacia para que al abrir un form me muestre la hora actual, la verdad no me acuerdo de este lenguaje por eso tengo que preguntar porque estoy a contrareloj. Muchas gracias a quien me ayude.

[Tomás]

Hola:

Acostumbrate a hacer una sola pregunta en cada hilo.


Mostrar la hora en un form:

Pones un Label y un Timer y en el evento OnTimer (el único que tiene) pones:

Label1.Caption := FormatDateTime('h:mm',Now);


Lo del calendario es simple, te doy las pautas, trabajatelo:

En un StringGrid de 7 columnas (y 7 filas).

//ver qué día de la semana es el día 1 del mes pedido (ojo con los anglosajones que primero descansan el domingo, y luego trabajan el resto de la semana)

//asigno valores iniciales de fila y columna en las variables respectivas

//relleno stringgrid con bucle for empezando en la posición adecuada, hasta total días que tiene el mes pedido

[Mario1980]

Hola, gracias por el consejo, tratare de que en cada hilo solo exista una pregunta. El tema del reloj ya lo solucione anteriormente. igual gracias.
Lo del calendario, lo que me decis, solamente es para un mes en especial?, porque lo que necesito es un calendario como el que tiene windows, es decir seleciono un mes y me aparece sus dias correspondientes. Gracias de todas formas.

[Tomás]

Hola:

Form (FMes) con:
- Label (LMesAno) para el mes y año
- StringGrid (SGMes) con 7 filas y 7 columnas, la primera fila para los nombres de los dias de la semana.
- ComboBox (CBMes) para los nombres de los meses
- SpinEdit (SPAnio) para el año

Y este código (la nota del examen la mitad para mi...).

procedure TFMes.FormCreate(Sender: TObject);
var
i : integer;
begin
//literal días de la semana en cabecera (coger de marzo de 2004 que empieza en lunes)
for i := 0 to 6 do
SGMes.Cells[i,0] := Copy(FormatDateTime('dddd',EncodeDate(2004,3,i+1)),1,7);
//añadir al combo el literal de los meses (coger de cualquier año)
for i := 1 to 12 do
CBMes.Items.Add(FormatDateTime('mmmm',EncodeDate(2000,i,1)));
//situarse en mes y año actual
CBMes.ItemIndex := MonthOf(Date) - 1;
SEAnio.Text := IntToStr(YearOf(Date));
end;

procedure TFMes.SEAnioKeyPress(Sender: TObject; var Key: Char);
begin
//controlar entrada dígitos para año
if ( StrScan('0123456789,'+chr(7)+chr(8), Key) = nil ) then
begin
Key := #0;
end;
end;

//evento OnChange del ComboBox y del SpinEdit
procedure TFMes.SEAnioChange(Sender: TObject);
var
iDiasemana : integer;
i, j, iAnio: integer;
iFila, iColum : integer;
begin
//controlar entrada año no sea 0 ni blanco
iAnio := StrToInt('0'+SEAnio.Text);
if iAnio = 0 then
iAnio := 1;
//limpiar SGrid
for i := 1 to 7 do
for j := 1 to 7 do
SGMes.Cells[j-1,i] := ' ' ;
//mes y año en label título
LMesAno.Caption := CBMes.Text + ' ' + IntToStr(iAnio);
//ver qué día de la semana es el día 1 del mes pedido (restar 1 porque semana empieza en domingo)
iDiasemana := DayOfWeek(EncodeDate(iAnio, CBMes.ItemIndex + 1, 1)) - 1;
//porque domingo es el 7
if iDiasemana = 0 then
iDiasemana := 7;
//valores iniciales de fila y columna
iFila := 1;
iColum := iDiasemana - 1 ;
//relleno stringgrid con bucle for hasta total días que tiene el mes pedido
for i := 1 to DaysInAMonth(iAnio, CBMes.ItemIndex + 1) do
begin
SGMes.Cells[iColum,iFila] := IntToStr(i);
//controlar cambio de fila
iColum := iColum + 1;
if iColum = 7 then
begin
iFila := iFila + 1;
iColum := 0;
end;
end;
end;

[Mario1980]

Gracias por tu ayuda, de todas formas termine implementando una solucion parecida.
Igualmente muchas gracias!