preguntas sobre DBEDITS

[Casimiro Notevi]

Bueno, en principio es sólo poner en el 'onEnter' algo así como 'Color:=clBlue' y en el 'onExit' volver a poner el color que tenía al entrar.

[[oscarac]]

en Visual Fox uno podia crear una Clase que se derivaba de un componente se le agregaban propiedades y se podia usar dentro de los formularios

con esto conseguia hacer por ejemplo edits con mascaras

en delphi hay algo parecido?

[[gluglu]]

Realiza una búsqueda al respecto ..... seguro que encuentras miles de mensajes al respecto en los foros

[ecfisa]

Hola oscarac.

Cuando la propiedad Enabled de un control esta en False el control ignora el mouse y el teclado. Al salir del DBEdit, se envía el Foco al próximo control determinado por TabOrder, sin importar que el estado de este sea Disabled. Si el próximo control a la salida del DBEdit tiene su propiedad Enabled a
True no se produce ese efecto.

Una solución que se me ocurre, es utilizar este código para deshabilitar los DBEdits:

Código Delphi [-]
function TForm1.ControlesOff: Boolean;
begin
  edtMaterial.Enabled := qryUbicarCuentainv.AsString = 'S';
  edtActivo.Enabled := qryUbicarCuentaACT.AsString = 'S';
  edtArea.Enabled := qryUbicarCuentaArea.AsString = 'S';
  edtCantidad.Enabled := qryUbicarCuentainv.AsString = 'S';
  edtCCosto.Enabled := qryUbicarCuentaCCosto.AsString = 'S';
  edtAnexo.Enabled := qryUbicarCuentaAnexo.AsString = 'S';
  edtRuc.Enabled := qryUbicarCuentainv.AsString = 'S';
  Result:= edtMaterial.Enabled;
end;

Ignoro cuando realizas las consultas y activas/desactivas los DBEdits, pero supongamos que lo haces en el evento OnExit del primer DBEdit
que adjuntaste:

Código Delphi [-]
procedure TForm1.edtMaterialExit(Sender: TObject);
begin
  // Ejecutar las consultas
  if ControlesOff then 
  begin
    edtMaterial.Enabled:= True; // habilitar
    edtMaterial.SetFocus;       // darle el foco nuevamente (o a otro control.)
  end;
end;

Espero que te sirva o al menos te aporte alguna una idea.


Un saludo.

[[José Luis Garcí]]

Oscara en el Ftp del club puedes encontrar un componente que cree hace meses, se llama ScreenColorcenter, eliges el color para cuando tenga el foco, lo sueltas en el form principal, en muy importante que lo actives al crearse el form y lo desactives al cerrar el form, ya que lo que hace es actuar sobre todos lo programas activos, cambiando el color al recibir el foco de varios componentes, sin tener que poner código, alguno.

[[oscarac]]

explico un poco mas lo que hago...

efectivamente tengo un primer dbedit en el cual solicito una cuenta contable, que de acuerdo a las caracteristicas de la cuenta, se activaran / desactivaran otros dbedits
ya tengo un procedimiento que me ubica la cuenta y es algo como esto..

Código Delphi [-]
procedure TfrmingresoComprobantesVariosd.edtCuentaExit(Sender: TObject);
Var _Cuenta : String;
begin
_Cuenta := edtCuenta.Text;
    if not VerificarCuenta (_Cuenta, Derecha(dmGlobal.g_nivelCuenta,1)) then
      begin
        frmCatalogoPlanContable := TfrmCatalogoPlanContable.Create(Self);
        frmCatalogoPlanContable.FormStyle := fsNormal;
        frmCatalogoPlanContable.Visible := False;
        frmCatalogoPlanContable.t_para := True;
        frmCatalogoPlanContable.ShowModal;
      end;
    edtCuenta.Text := dmGlobal.vResultCuenta;
    frmIngresoComprobantesVarios.tVoucherCuenta.Value := dmGlobal.vResultCuenta;
    lblCuenta.Caption := dmGlobal.vResultCuentaDescripcion;
    HabilitarEdits;

    If edtCuenta.Text = '' then
        edtCuenta.SetFocus;

lo curioso es que he puesto que cuando entre al dbedit.. me cambie de color pasar saber que es lo que hace... y al salir del primer edit el flujo desaparece presiono ENTER de nuevo y nuevamente aparece en el primer dbedit despues de eso el flujo sigue normal

si yo supiera que control se debe activar seria mas facil, pero eso depende de lo que mande la cuenta contable, ejemplo :

Campos existente
Centro de costos
Area
Presupuestos
Obras
Recursos
Codigo de Anexo
Flujo de Gasto

si selecciono la cuenta 63 se activara
centro de costos
area
presupuestos

si selecciono la cuenta 42 se activara
codigo de proveedor
area

si selecciono la cuenta 10 se activara
Flujo de gastos


espero que ahora se me entienda mejor
gracias

[[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?