Validar Calendario Días Habiles
 

Estimados,

Estoy validando un control de formulario llamados "accord" nunca los habia utilizado, resulta que este es el bloque de codigo que asigno en el evento "onchange"

Código Delphi [-]
var f1 : TDateTime;
begin
  f1:= StrToDateTime(ADBDate_pay.Text);
  if (DayOfWeek(f1)=7) or (DayOfWeek(f1)=1) then
         MessageDlg('El día seleccionado no es válido '+ #13#10 +
       'Sólo se permite de Lunes a Viernes', mtWarning, [mbOK], 0);
       ADBDate_pay.SetFocus;
end;

Todo bien hasta ahora, pero quiero que cuando muestre alerta que NO ES VALIDO EL DIA SELECCIONADO, entonces SE BORRE lo que esté actualmente en el control, he intentado de todo.

Código Delphi [-]
 ADBDate_pay.text:= '';
 ADBDate_pay.clear;

Y nada me resuelve el problema....

Alguién que sepa del tema????

Hola mantraxer21.

Yo no conozco ese componente pero proba si funciona del mismo modo que el TDateTimePicker. En lugar de cadena vacía, asignale un espacio:

Código Delphi [-]
 ADBDate_pay.text:= ' ';

Saludos :)

Calendario
 

No se si entendí bien la pregunta; pero una vez yo hice un calendario por mes utilizando los componentes TFlowPanel, para este caso utilice 49 componentes y a cada uno de ellos les di un atributo (lo trate como si fuese un arrego de 7x7) y esto me funciono muy bien. La ventaja es que se pueden manejar colores en los días (por ejemplo rojo en feriados y blanco en días normales) y esto me ha funcionado muy bien.

Por cierto esto lo resolvi utilizando Delphi XE