Formulario que devuelva un dato

[Casimiro Noteví]

Mira los enlaces de abajo del todo, a ver si te sirve alguno.

[[oscarac]]

Lo solucioné de esta forma

con un procedimiento y un formulario

aqui el codigo del procedimiento

Código Delphi [-]
Function _PedirFecha(Dato : String) : String;
var dtInicio, dtFin : TDate;
begin
  Establecerfechas(dtInicio, dtFin,0);
  with TfrmFechaMigracion.Create(nil) do
    begin
      dtFecha.MinDate := dtInicio;
      dtFecha.MaxDate := dtFin;
      btnAceptar.ModalResult := mrOk;
      btnCancelar.ModalResult:=mrCancel;
      lblTitulo.Caption := Dato;
      Showmodal;
      if ModalResult = mrOK then
        Result := DateToStr(dtFecha.Date)
      Else
        Result := '';
      Free;
    end;
end;

y en el formulario coloque un DateTimePicker

y luego este codigo

Código Delphi [-]
procedure TfrmFechaMigracion.btnAceptarClick(Sender: TObject);
begin
  ModalResult := mrOk;
end;

procedure TfrmFechaMigracion.btnCancelarClick(Sender: TObject);
begin
  ModalResult := mrCancel;
  Close;
end;

y listo

lo dejo en caso a alguien le pueda servir

[roman]

Hola, un comentario:

Los botones tienen una propiedad llamada ModalResult. Si a btnAceptar le pones esa propiedad en mrOk y a btnCancelar se la pones en mrCancel, entonces no hay necesidad de programar los eventos Click; el formulario se cerrará y devolverá el valor adecuado en ModalResult.

// Saludos

[[oscarac]]

excelente
gracias