VPF::Как отследить измененеие значения ячеики StringGr?

WaReZMEN

Дата 30.5.2008, 02:49 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 683
Регистрация: 9.6.2006
Где: Россия, Санкт-Пет ербург

Репутация: нет
Всего: 3

Вообщем когда я в рузчую ввожу цифры в каждую ячеику все понятно а если я делаю так

Код


   StringGrid1.Cells[I,J]:=IntToStr(Random(100));

Как мне узнать что значения изменеились ?
Не одно событие на это деиствие не срабатывает...

Rrader

Дата 30.5.2008, 06:07 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

Можно самому вызывать нужное событие. Можно код для программного изменения оформить в метод:

Код


Procedure TForm1.SetGridValue(ACol, ARow, Value: Integer);
Var
 CanSelect :Boolean;
Begin
  With StringGrid1 Do
  Begin
    Cells[ACol, ARow] := IntToStr(Value);
    EditorMode := True;
    StringGrid1SelectCell(Self, ACol, ARow, CanSelect);
  End;
End;

Procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; Var CanSelect: Boolean);
Begin
  if StringGrid1.EditorMode then
    ShowMessage('Редактировать закончили');
End;

Procedure TForm1.Button1Click(Sender: TObject);
Begin
  SetGridValue(2, 2, 256);
End;

--------------------

Let's do this quickly!
Rest in peace, Vit!

WaReZMEN

Дата 30.5.2008, 10:11 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 683
Регистрация: 9.6.2006
Где: Россия, Санкт-Пет ербург

Репутация: нет
Всего: 3

Rrader, хм... и как я сам не догадался.... спасибо!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »