Ver Mensaje Individual
  #4  
Antiguo 25-08-2006
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 29
Lepe Va por buen camino
El único caso en que a este código le veo sentido, es que se ejecute un código cuando se cambia de Fila (aunque no puedo verlo por ese código):

Código Delphi [-]
  self.ListaPedido.SetFocus;
  MiRow := ListaPedido.Row;
         self.ListaPedido.Row := 2;
         self.ListaPedido.Row := MiRow;

Además tienes 2 SetFocus, sería mejor dejar el último.

La última vez que usé ese control, tuve que dejar una fila vacia siempre abajo del todo, no es nada elegante esa solución, pero me estaba volviendo loco fallos del tipo "Grid index out of range" (no quise dedicarle más tiempo a un Freeware ).

"Cannot focus a disables or invisible window" este es otro error distinto, lo que vien a decir, es que la ventana que debe salir al hacer doble clic :
- ya se encuentra creada pero está invisible (visible a false). Revisa Project ->Options y quita esa ventana de AutoCreateForms y pasala a Available, despues tendrás que crearla a mano .... por ejemplo:
Código Delphi [-]
procedure TMain.Button1click(...);
begin
  Application.CreateForm(Tform1, form1); 
  Form1.ShowModal
end;

// y despues en la ventana:
procedure TForm1.FormClose(...);
begin
  action := cafree;
  Form1:= nil;
end;
- O bien se trata de una ventana mdichild y no puede usarse ShowModal

Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita