StringGrid

← →
Separator © (2002-12-05 11:48) [0]

Как в StingGrid отследить, что добавиль в конкретную ячейку, а то переписывать SetCells и все сопутствующие процедуры лень?

← →
LongIsland © (2002-12-05 12:02) [1]

procedure TForm1.GridSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: String); begin if Value="0" then Grid.Cells[ACol,ARow] := "y"; end;

← →
Separator © (2002-12-05 12:11) [2]

А если я делю так: StringGrid1.Cells[1, 1]:= "1";
Как мне перехватить это?

← →
LongIsland © (2002-12-05 12:17) [3]

if (ACol = 1) and (ARow = 1) then if Value="0" then Grid.Cells[ACol,ARow] := "y";

Пойдет?

← →
Separator © (2002-12-05 12:23) [4]

Нет, у меня не пользователь меняет значения в таблице, а сама программа, но только в другом месте, а мне надо в потомке TStringGrid отловить что пишется например в ячейку [1, 1].

procedure TForm1.Button1Click(Sender: TObject); begin Grid.Cells[1,1]:="000000"; end; procedure TForm1.GridDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin if Grid.Cells[ACol,ARow] = "000000" then Grid.Cells[ACol,ARow]:="7"; end;

Спасибо, так сойдет

StringGrid Найти похожие ветки