rulo_m
18-01-2008, 22:26:28
Buenos tardes, dias o noches, dependiendo de donde esten..
tengo un ligerillo problema (ya me habia tardado)
En una forma utilizo un wwDbgrid con tres columnas 2 de ellas son wwdbedit, los cuales pueden o no tomar valores (muestran la equivalencia del wwdedit que si admite valores)
lo que intento hacer, es que solo se pasen el foco entre los que si son editables.. algo asi..
pesos dlls
efectivo pesos *editable no editable
efectivo dlls no editable * editable
cheque pesos *editable no editable
que el foco solo se pase entre los editables.. el programa no me deja editar los no editables.. pero seria mejor si ni siquiera los seleccionara.. todo esto es en delphi 2007
eh intentado todo esto
procedure TT_PagosMovimientos.DBEd_PesosEnter (Sender: TObject);
begin
if (TwwDBEdit (Sender).ReadOnly = True) then
begin
//SendMessage(Handle, WM_NEXTDLGCTL, 0, 0);
//Application.ProcessMessages;
SelectNext(TwwdbEdit(Sender), True, True);
//Perform(WM_NEXTDLGCTL, 0, 0);
end;
end;
Tambien intente de esta forma..
if (TwwDBEdit (Sender).ReadOnly = True) then
with TStringGrid(wwDBGrid1) do
begin
if Col:=1 then col=2
row:=row+1;
setfocus;
end;
tengo un ligerillo problema (ya me habia tardado)
En una forma utilizo un wwDbgrid con tres columnas 2 de ellas son wwdbedit, los cuales pueden o no tomar valores (muestran la equivalencia del wwdedit que si admite valores)
lo que intento hacer, es que solo se pasen el foco entre los que si son editables.. algo asi..
pesos dlls
efectivo pesos *editable no editable
efectivo dlls no editable * editable
cheque pesos *editable no editable
que el foco solo se pase entre los editables.. el programa no me deja editar los no editables.. pero seria mejor si ni siquiera los seleccionara.. todo esto es en delphi 2007
eh intentado todo esto
procedure TT_PagosMovimientos.DBEd_PesosEnter (Sender: TObject);
begin
if (TwwDBEdit (Sender).ReadOnly = True) then
begin
//SendMessage(Handle, WM_NEXTDLGCTL, 0, 0);
//Application.ProcessMessages;
SelectNext(TwwdbEdit(Sender), True, True);
//Perform(WM_NEXTDLGCTL, 0, 0);
end;
end;
Tambien intente de esta forma..
if (TwwDBEdit (Sender).ReadOnly = True) then
with TStringGrid(wwDBGrid1) do
begin
if Col:=1 then col=2
row:=row+1;
setfocus;
end;