Cita:
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;
Codigo := TConsulta.Seleccionar;
if Codigo <> -1 then begin
...
end;
|
No entiendo como la funcion, que es donde se crea el formulario de consulta, la pones en el mismo formulario de consulta. ¿No debería ir en el formulario que hace la llamada a la consulta?
Otra cosa, al cambiar el formulario de MDIChild a FsNormal me da error al hacerle el showModal me da el siguiente erro:
cannot make a visible window modal
Un Saludo.
Para Contreras: Yo tambien estoy empezando y si miras en las secciones de ejemplos y manuales de este foro vas a encontrar todo lo que necesitas.
Gracias de antemano.