Focus

[Huer]

Hola amigos de delphi, gracias a sus consejos he superado etapas.

mi dificultad es la siguiente:

tengo un servidor SQL 2000 y del terminal la conexión la realizo a través de ODBC. y funciona bien, pero la dificultad esta cuando voy a grabar me indica el siguiente error:

no puede enfocar ventanas lisiadas o invisibles.

cannot focus a disabled or invisible windows.


no puedo solucionar este error, o sera que las instrucciones han cambiado

Código Delphi [-]
begin
try
    if dm.md_publica.GotoKey then
       dm.md_publica.IndexFieldNames:='ppn';
       dm.md_publica.SetKey;
except
on e:econverterror do
       messagedlg(';!Propuesta ya ingresada!;',mtconfirmation,[mbok],0);
end;
    if (length(pp.text)=0) then;
    messagedlg(';!Campos en Blancos!;',mtconfirmation,[mbok],0);
begin
        dm.md_publica.Open;
        dm.md_publica.Insert;
        dm.md_publicaPPN.AsInteger:=strtoint(pp.Text);
        dm.md_publicaDETALLE.AsString:=dt.Text;
        dm.md_publicaFECHA.AsDateTime:=fetop2.Date;
        dm.md_publicaFECHAV.AsDateTime:=fetop3.Date;
        dm.md_publicaDOC.AsString:=doc.Text;
        dm.md_publicaCONCEPTO.AsString:=con.Text;
        dm.md_publicaAVISO.AsInteger:=strtoint(avi.Text);
        dm.md_publica.Post;
        dm.md_publica.Refresh;
end

[delphi.com.ar]

Ese problema sucede cuando haces un SetFocus a un componente que esta deshabilitado o invisible, o que esta sobre una ventana / contenedor en ese estado.
Es un error muy común hacer un SetFocus en el create de un form, y como el form aún no se encuentra visible produce este error, una solución sencilla para esto es hacer lo siguiente:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ActiveControl := Edit1;
end;

o hacerlo en el Load, o preguntar por CanFocus....

A simple vista el código que pasaste no produciría directamente ese error, aunque puede ser disparado desde algún evento en particular, como los eventos del dm.md_publica

PD:
Me gusta mas pensar que Disabled es desactivado / deshabilitado y no lisiado

Saludos!

[Alejandrina]

Hola,
Tengo el mismo problema donde tengo que.

procedure TFrmIngresoSolicitud.BTNuevaSolicitudClick(Sender: TObject);
begin
  DBLMolde.KeyValue := Null;
  DBLMaquinas.KeyValue := Null;
  DBEDescripcionMaquina.text:='';
  DBLArea.KeyValue := Null;
  DBeArea.text := '';
  Descripcion.text:='';
  DBEDescripcionMolde.text:='';
  DBLMaquinas.KeyValue := Null;
  Descripcion.text:='';
  DBLCIndicador.KeyValue:=Null;
  DBEdCodigoIndicador.Text:='';
  ingresars := true;
  DmSip.TblSolicitud.Insert;
  edsolicitud.SetFocus;
  DBLCIndicador.visible:=true;
  DBEdCodMolde.Visible:=false;
  BTNuevaSolicitud.Enabled:=false;
end;

luego lo deshabilito para que el usuario no repita la acción mientras esta rellenando los campos...intento solucionarlo de la forma anterior pero no me funciona...que mas puedo hacer?

Gracias...

[juanlaplata]

edsolicitud.SetFocus;

verifica esta componente. Como dice delphi.com.ar
"hacer un SetFocus a un componente que esta deshabilitado o invisible"
da ese tipo de error.

[karlaoax]

Estoy segura que debe haber un campo oculto por eso marca el error indicado........

[Alejandrina]

Hola,
Gracias por sus sugerencias pero recibo mas ya que aun me sale el mismo error....

[delphi.com.ar]

Empezado por delphi.com.ar

...o preguntar por CanFocus....

Algo simplemente como eso:

Código Delphi [-]
if AControl.CanFocus then
  AControl.SetFocus;

Saludos!