Evento de DBCheckBox para modificar datos

[tgsistemas]

Hola a todos,

trabajo con D7 y SQL 2005 Express, en un form muestro los datos de un qry, entre ellos un DBCheckBox el cual tiene el siguiente código en el evento onclick :

Código Delphi [-]
procedure TFEdtarPARTESLIN.DBCheckEXTRAClick(Sender: TObject);
begin
  if DBCheckEXTRA.Checked then
  begin
    if MessageDlg('Atención !!!!'+#13+#10+''+#13+#10+
       'Se asignarán todas las Horas como Horas Extras.'+#13+#10+''+#13+#10+
       '¿ Desea continuar ?', mtWarning, [mbYes, mbNo], 0) = mrYes then
      CalculaHoras;
  end;
end;

la rutina CalculaHoras calcula y distribuye los valores calculados en diferentes campos, eso funciona perfectamente.

Lo curioso, o al menos a mí me lo parece, es que al mostrar el form con showmodal se ejecuta ese código, con lo cual entiendo que se está disparando el evento TFEdtarPARTESLIN.DBCheckEXTRAClick y no lo encuentro muy normal... o si ??

La aplicación calcula partes horarios de trabajadores, distribuye las horas en función de un calendario laboral y unos turnos de trabajo, pero necesitan un proceso manual para "asignar" determinadas horas como horas extras , si, si... a mí también me gustaría un jefe así

Así que añadí un campo boolean a la tabla para determinar si esas horas eran "asignadas manualmente" como extras y es ese el campo del DBCheckBox.

Si a alguien se le ocurre otra forma mejor de solventarlo, se admiten propuestas

Saludos y Gracias