Llamada a Form de Consulta y retorno de informacion

[guillotmarc]

Hola.

No puedes declarar un constructor, que devuelva valores. Para solventarlo yo suelo declarar funciones de clase.

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 :

  Codigo := TConsulta.Seleccionar;
  if Codigo <> -1 then begin
    ...
  end;