Justo hoy temprano estaba trabajando en eso.
Lo primero queme interesaba era modificar una reserva lo que hago con esto
Código Delphi
[-]procedure TFHabitDisp.DBPlanner1ItemDblClick(Sender: TObject;
Item: TPlannerItem);
begin
if messagedlg('¿Modificar reserva?',Mtconfirmation, [mbyes,mbno],0) =mryes
then
begin
datos.tReservas.Locate('codigo',dbplanner1.Items.Selected.DBKey, []);
FPrincipal.ModificarReserva.Execute; end;
Llenarplanner;
end;
Recién probé tu código pero cre crea un conflicto con el que cité antes para modificar.
Ya que al crear un nuevo item desde el planner el ITEM no tiene ningún DBKEY.
Lo que me serviría y todavía n oencontré la forma es que al hacer doble click en un casillero del planner vacío, OBTENER LA FECHA de ese casillero,
entonces luego lanzo la acción de agregar una reserva a la tabla y luego del post refresco el planner.