Hola.
No puedes declarar un constructor, que devuelva valores. Para solventarlo yo suelo declarar funciones de clase.
Código:
class function Seleccionar: Integer;
...
implementation
class function TConsulta.Seleccionar: integer;
begin
with TConsulta.Create(Application) do begin
// Abrir DataSets, inicializar controles, ...
ShowModal;
if ModalResult = mrOk then begin
Result := DataSet.FieldByName('Codigo').AsInteger;
end
else begin
Result := -1;
end;
Release;
end;
end;
Para usarlo solo debes añadir el formulario en el Uses del nuevo formulario y acceder mediante algo como :
Código:
Codigo := TConsulta.Seleccionar;
if Codigo <> -1 then begin
...
end;