Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.011 c
1-51711
Маришка
2002-12-06 08:32
2002.12.16
день


3-51582
Jovanny
2002-11-26 17:38
2002.12.16
Запрос из запросов.


14-51954
Sergey_Suhoy
2002-11-26 10:28
2002.12.16
Сохранение ветки реестра в текстовый файл.


4-52015
Lexa1900
2002-11-02 23:40
2002.12.16
Можно ли как-то сохранять все полученные hwnd?


1-51765
Андрей Драница
2002-12-04 13:54
2002.12.16
Поддержка .Net в Delphi 7