VPF::StringGrid - Форум программистов

n00b

Дата 9.8.2004, 03:14 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Элементарная вещь, но что-то у меня ума не хватает. Мне нужно, чтобы в ячейку СтрингГрида нельзя было ввести текст если в предыдущей текта нет.

Wowa

Дата 9.8.2004, 03:19 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Админ
Сообщений: 15017
Регистрация: 14.9.2000
Где: Винград

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

Обрабатывай событие, типа onEdit, получай номер ячейки, а затем проверяй заполненность предыдущей ячейки.

n00b

Дата 9.8.2004, 03:23 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Эт ясно, но вот что-то не получается.. Плиз напишите пример!

n00b

Дата 9.8.2004, 23:19 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Здесь никто не знает или вам лень просто написать примерчик?!

p0s0l

Дата 9.8.2004, 23:54 (ссылка)

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

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Нет, просто надо просить упорнее

Код

procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
  ARow: Integer; const Value: String);
begin
  if (ARow > 0) and (StringGrid1.Cells[ACol, ARow-1] = '') then
      StringGrid1.Cells[ACol, ARow] := '';
end;

или (мне больше нравится)

Код


procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  with StringGrid1 do
    if (ARow > 0) and (Cells[ACol, ARow-1] = '') then
      Options := Options - [goEditing]
    else
      Options := Options + [goEditing];
end;

Это сообщение отредактировал(а) p0s0l - 9.8.2004, 23:56

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

С уважением, г-н Посол.

n00b

Дата 10.8.2004, 15:25 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Сенки!

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