Cita:
Empezado por JAI_ME
...
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.