(Resolvido) Pegar Mês Selecionado em um TMonthCalendar

[Anderson Scinfo]

estou fazendo agora uma agenda integrada ao meu sistema, e to com a seguinte duvida, procurei no forum, mas não concegui encontar, as vezes até tem ai, mas não achei, se alguém souber de algum tópico me envie que eu vejo, mas segue a duvida,

como faço p/ pegar o mes que ta selecionado em um TMonthCalendar??

se alguém conhece algum site que tenha artigos sobre agendas de compromisso, ou codigos de fontes de exemplo, alguma coisa relacionada a agendas, me enviem, tem muitas coisas na agenda que eu ainda nem faço idéia de como farei....

Anderson Junior

[Jhonas]

como faço p/ pegar o mes que ta selecionado em um TMonthCalendar??

vai ai um exemplo:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    MonthCalendar1: TMonthCalendar;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Meses: array[1..12] of STRING = ('Janeiro', 'Fevereiro', 'Março', 'Abril', 'Maio', 'Junho', 'Julho', 'Agosto', 'Setembro', 'Outubro', 'Novembro', 'Dezembro');
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
  Data: TDateTime;
  Year, Month, Day, Hour, Min, Sec, MSec: Word;

 begin
  Data:= MonthCalendar1.Date;
  DecodeDate(Data, Year, Month, Day);
  Label1.Caption := 'Hoje é dia ' + IntToStr(Day) + ' do mes '
    + meses[Month] + ' do Ano ' + IntToStr(Year);

  DecodeTime(now, Hour, Min, Sec, MSec);
  Label2.Caption := 'Hora atual ' + IntToStr(Hour) + ' horas e '
    + IntToStr(Min) + ' minutos';


end;

end.

abraço

[Anderson Scinfo]

Jhonas, valeu amigo, muito obrigado pela dica, isso resolve perfeitamente meu problema, é até mais doque eu esperava, valeu...

Anderson