Špatné parametry v OnSelectCell – Delphi – Fórum – Programujte.com

Zdravím,

mám problém s procedurou OnSelectCell, její parametry aRow a aCol mi při označení buňky vrací předchozí hodnoty - předchozí zvolenou buňku. Správně procedura funguje až po druhém kliknutí na tu kterou buňku.

procedure TMain.StrankySelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
 ARow := Stranky.Row;   // <= ani tohle nepomohlo pro opraveni predchozi hodn. na aktualni
 Stranka.Text := Stranky.Cells[1, Stranky.Row];
 AktualizovatCislaLinek;
end;

poradí mi někdo jak dostat aCol a aRow na správnou hodnotu, než se daná procedura provede?

Děkuji.

Jaká verze delphi? Jaká komponenta?

Zkoušel jsem to v Delphi 7 na TStringGrid a parametry jsou správně. Nezapomeň, že se buňky číslují od nuly počítaje v to i FixedCols/FixedRows.

Delphi 7.3.4.3 komponenta StringGrid z Grids. Že se indexuje od nuly vím, jenže:
 - zvolím řádek 10 dvakrát aby hodnota byla správná
 - zvolím řádek 1 (jedním kliknutím) ale procedura se provede se řádkem 10
 - zvolím řádek 5 a procedura se provede se řádkem 1
 - zvolím 12, provede se s 5 a tak dále... 

Když udělám aby se celý zvolený řádek probarvil nějakým pozadím, vložím do procedury OnSelectCell volání procedury Repaint té tabulky a v proceduře OnDrawCell mám následující
 

procedure TPlanDleGVD.TablePlanGVDDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var BarvaLinky: TColor;
begin
 if ((ARow > 0) and (Acol > 0)) then
 begin
  if Arow MOD 2 = 1
  then TablePlanGVD.Canvas.Brush.Color := $00DADADA
  else TablePlanGVD.Canvas.Brush.Color := $00AAAAAA;
  (*
  if Arow = TablePlanGVD.Row
  then TablePlanGVD.Canvas.Brush.Color := clBlack;
  *)
  TablePlanGVD.Canvas.FillRect(Rect);
 end;
end;

zakomentovaná část provede to, že probarví z nově zvoleného řádku jen zvolenou buňku a v ostatních sloupcích probarví buňky v předchozím zvoleném řádku.

Když tak znova koukám na ten kód, tak tohle 

Stranka.Text := Stranky.Cells[1, Stranky.Row];

je jednoznačně špatně, má být 

Stranka.Text := Stranky.Cells[1, ARow];

Protože tahle událost je volaná PŘED vybráním nové buňky, tudíž Stranky.Row obsahuje starou souřadnici, nová je právě v těch předaných parametrech (viz nápověda delphi: The Col and Row parameters indicate the column and row indexes of the cell that is about to be selected.).