preguntas sobre DBEDITS

[[oscarac]]

siguiendo con este tema
modifique el programa de tal manera que solo pase de un campo a otro y cuando pasa del primer edit al segundo el cursor desaparece (ya me esta volviendo loco)

[[oscarac]]

Utilice el componente que muy amablemente me menciono José Luis Garcí para tener una idea de donde es que va el foco, el asunto es que cuando activo/ desactivo los edits, luego de solicitar la cuenta contable, el foco "desaparece", es decir el edit no se pinta(lo que me indica donde esta actualmente el foco)

entonces al presionar enter... el foco regresa al primer edit y de ahi ya todo funciona bien... cosa rara no?
a alguien le sucede o sucedio algo parecido?

[[José Luis Garcí]]

Hola oscara, acabo de probar el componente con un par de edit y grid y no me hace lo que me comentabas en el mensaje privado, no veo que afecte al grid, de todas maneras puedes cambiar el código de:

Código Delphi [-]
procedure TCenterScreenColor.AdmitComponent(Component:TWinControl);
begin
     if (Component is TCustomForm) then
     if Component.ClassType=Tform then
     begin
         if FForm=true then VarPrivPassComponent:=True
                       else VarPrivPassComponent:=False;
     end else
     begin
        if ((Component is TCustomEdit) or (Component is TDateTimePicker))then
        begin
           if FEdit_DBEdit=true then VarPrivPassComponent:=True
           else VarPrivPassComponent:=False;
        end else
        begin
           if (Component is TCustomMemo) then
           begin
              if FMEmo_DbMEmo=true then VarPrivPassComponent:=True
                                   else VarPrivPassComponent:=False;
           end else
           begin
              if (Component is TCustomComboBox) then
              begin
                  if FComboBox_DBCombobox=true then VarPrivPassComponent:=True
                                               else VarPrivPassComponent:=False;
              end else
              begin
                 if FOther=true then VarPrivPassComponent:=True
                                else VarPrivPassComponent:=False;
              end;
           end;
        end;
     end;
end;

por

Código Delphi [-]
procedure TCenterScreenColor.AdmitComponent(Component:TWinControl);
begin
   if not (Component is TCustomDBGrid) then
   begin
     if (Component is TCustomForm) then
     if Component.ClassType=Tform then
     begin
         if FForm=true then VarPrivPassComponent:=True
                       else VarPrivPassComponent:=False;
     end else
     begin
        if ((Component is TCustomEdit) or (Component is TDateTimePicker))then
        begin
           if FEdit_DBEdit=true then VarPrivPassComponent:=True
           else VarPrivPassComponent:=False;
        end else
        begin
           if (Component is TCustomMemo) then
           begin
              if FMEmo_DbMEmo=true then VarPrivPassComponent:=True
                                   else VarPrivPassComponent:=False;
           end else
           begin
              if (Component is TCustomComboBox) then
              begin
                  if FComboBox_DBCombobox=true then VarPrivPassComponent:=True
                                               else VarPrivPassComponent:=False;
              end else
              begin
                 if FOther=true then VarPrivPassComponent:=True
                                else VarPrivPassComponent:=False;
              end;
           end;
        end;
     end;
  end;
end;

Lo que haría es si el componente es un Dbgrid (LLamo al ancestro de los Dbgrid, para que admita la mayor parte de ellos), no sigue y si es otro componente si.

Me imagino ya que no lo he probado que deberas incluir la unidad Dbgrids.

[[José Luis Garcí]]

Por cierto Oscara, ten en cuenta que el componente va afectar a toda la aplicación y otras que estén activas en Windows, mientras este activo el componente, por eso es fundamental, activarlo al iniciarse la aplicación y desactivarlo una vez termines, ya que si no lo haces quedara activo en otras aplicaciones de Windows.

[Casimiro Notevi]

Mientras intentaba resolver este problema y para saber qué control tiene el componente, lo que hice fue poner un ttimer y un tlabel, cada segundo escribía en el caption del tblabel el nombre del control con el foco, no recuerdo de memoria, pero creo que era algo así como:

Código Delphi [-]
label1.caption := application.activecontrol.name

De esa forma podía saber que aunque no se viera el cursor, el foco realmente estaba allí... y así maldecir con seguridad a delphi/¿windows? por no mostrar el cursor... hasta que pulsara alguna tecla.

[[Espartaco]]

Hola ya se que hace muchos años de este hilo pero buscando solucion a un problema me lo he encontrado, no se si es demasiado tarde.
He descubierto que si muestro un application.messagebox, al salir del mensaje me hace lo que decis, en cambio si lo hago con un showmessage no lo hace.
No se donde esta el problema pero he descubierto esto.