Текущий архив: 2002.12.16;
Скачать: CL | DM;
Вниз
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].
← →
LongIsland © (2002-12-05 12:31) [5]
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;
← →
Separator © (2002-12-05 12:34) [6]Спасибо, так сойдет
Страницы: 1 вся ветка
Текущий архив: 2002.12.16;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.01 c
