[delphi-br] Pega uma data sequencial com o click usando MonthCalendar -

Thu, 24 Jul 2008 08:06:01 -0700 

Bom dia amigos


Preciso pega a data atual clikada em um MonthCalendar e preencher 
alguns edits na seqüência, estou fazendo assim:

procedure TfrmCadAgenda.MonthCalendar2Click(Sender: TObject);
var
  data01: TPoint;
  data02: TPoint;
begin
     GetCursorPos(data01); // Pega a posição atual do mouse;
     DBEdit1.Text  := (formatdatetime('dd-MM-yyyy', 
MonthCalendar2.Date));
     GetCursorPos(data02); // Pega a posição atual do mouse;
     DBEdit2.Text  := (formatdatetime('dd-MM-yyyy', 
MonthCalendar2.Date));
end;

Precisava captura o 1 click jogando o valor no 1 DBEdit1 e assim 
seqüencialmente.

Agradeço desde já!!

Responder a