TStringGrid - previous position of selected cell

[bedla]

Hi, I need help. I want to check a value in a cell of a stringgrid (in editing mode).  I write some numbers to the cell and then I click to another cell. Now, I need to check a content of the previous cell if one contains the right value (e.g. > 0). How do I find out corodinates of the previous cell after click to another cell and to choose previous cell again?  I tried to get it in evetns editingdone, selectcell, but without avail.

[Leledumbo]

Well, just prepare 2 variables of Integer that saves the latest cell coordinates. For example:

Code: [Select]


unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Grids,
  StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Label1: TLabel;
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure StringGrid1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

var
  PrevCol,PrevRow: Integer;

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  PrevCol:=0;
  PrevRow:=0;
end;

procedure TForm1.StringGrid1Click(Sender: TObject);
begin
  Label1.Caption:='PrevCol: '+IntToStr(PrevCol)+
                 ' PrevRow: '+IntToStr(PrevRow);
  PrevCol:=StringGrid1.Col;
  PrevRow:=StringGrid1.Row;
end;

initialization
  {$I Unit1.lrs}

end.

See the changes in the Label1.

[bedla]

Thanks. It helped me.