[DarKraZY]

Empezado por hgiacobone

Guauuu..... eso sería fantástico!!!
pero simplemente NO LO SE HACER , sino ya hubiese funcionado ¿no te parece?

Voy a probar suerte.... Esto es un poco de memoria, tendrías que ver que todo sea correcto.

Código Delphi [-]
procedure TForm1.ButonXXXOnClick(Sender: TObject);
var
  MyForm: TfrmCustomDlg;
begin
  MyForm := TfrmCustomDlg.Create(Self);
  try
    MyForm.SetModoFecha;
    if (MyForm.ShowModal = mrOk) then
    begin
      {aqui se realiza el procesamiento posterior}
    end;
  finally
    MyForm.Free;
  end;
end;

Y el TfrmCustomDlg quedaría más o menos así...

Código Delphi [-]
TfrmCustomDlg = class(TForm)
 ...
  private
    Label1: TLabel;
    Date1: TComboDate;
    Chk1: TCheckbox;
    procedure Check1_OnClick(Sender: TObject);
  ...
  public
    procedure SetModoFecha;
  end;

...

procedure TfrmCustomDlg.Check1_OnClick(Sender: TObject);
begin
  Date1.Enabled:= not (Sender As TCheckbox).Checked;
end;

procedure TfrmCustomDlg.SetModoFecha;
begin
  Self.BtnOK.Caption := '&Ingresar';
  Self.BtnCAN.Caption := '&Salir';

  Label1 := TLabel.Create(Self);
  Label1.Parent := Self.Panel1;
  Label1.Caption := 'Indique la fecha:';
  Label1.Left := 10;
  Label1.Top := 10;

  Date1 := TCombodate.Create(Self);
  Date1.Parent := Self.Panel1;
  Date1.Date := Now;
  Date1.Left := 10;
  Date1.Top := 50;

  Chk1 := TCheckbox.Create(Self);
  Chk1.Parent := Self.Panel1;
  Chk1.Caption := 'Sin fecha';
  Chk1.Left := 10;
  Chk1.Top := 70;
  Chk1.OnClick := Check1_OnClick;
end;

Creo que podría servirte algo así. Pero intenta cambiar los nombres de objetos para que quede más claro su cometido

Saludos!! Ya me dices si te sirvió