Ver Mensaje Individual
  #4  
Antiguo 06-12-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Cita:
Empezado por JAI_ME Ver Mensaje
...
Quizas me puedan ayudar a detectar cuando un usuario sale de una celda ???
Hola JAI_ME.

Cuando un usuario sale de una celda de un TStringGrid, existen dos posibilidades. Que lo haga para ingresar en otra, en cuyo caso se dispara el evento OnSelectCell, o para darle el foco a otro control en cuyo caso se dispara el evento OnExit.

Si no entendí mal lo que estas buscando tal vez te sirva de este modo:
Código Delphi [-]
  ...
  private
     FC: TPoint;
  end;
  ...

implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  FC.X := 0;
  FC.Y := 0;
end;

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
var
  Nro: Double;
begin
  with TStringGrid(Sender) do
   if TryStrToFloat(Cells[FC.X,FC.Y], Nro) then
     Cells[FC.X,FC.Y]:= FormatFloat('#0,.000',Nro);
  FC.X := ACol;
  FC.Y := ARow;
end;

procedure TForm1.StringGrid1Exit(Sender: TObject);
var
  Nro: Double;
begin
  with TStringGrid(Sender) do
   if TryStrToFloat(Cells[FC.X,FC.Y], Nro) then
     Cells[FC.X,FC.Y]:= FormatFloat('#0,.000',Nro);
end;

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita