Текущий архив: 2004.02.02;
Скачать: CL | DM;

Вниз

Подскажите, как запретить редактировать только одну ячейку в   Найти похожие ветки 

← →
Layner ©   (2004-01-21 15:17) [0]

StringGrid? И тоже самое для F1Book, но это я по аналогии сделаю, как в SG. Заранее спасибо.

---

← →
Рамиль ©   (2004-01-21 15:19) [1]

менять options по OnSelectCell

---

← →
TUser ©   (2004-01-21 15:20) [2]

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

---

← →
Layner ©   (2004-01-21 15:35) [3]

procedure Tfstat.sgSelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
begin
If sg.Cells[1,ARow] then
//

end;

А что за сравнение сделать, подскажите плз. Потом CanSelect:=False.

---

← →
Layner ©   (2004-01-21 15:39) [4]

procedure Tfstat.sgSelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
begin
if (ACol<=2) then
CanSelect:=False;
end;

Дошло :)

---

← →
Рамиль ©   (2004-01-21 15:39) [5]

Запретить редактировать и непущать разные вещи! Если как в сабже то
procedure Tfstat.sgSelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
begin
if (ACol = ColNum) and (ARow = RowNum) then
(Sender as TStringGrid).Options := (Sender as TStringGrid).Options - goEditing else
(Sender as TStringGrid).Options := (Sender as TStringGrid).Options + goEditing

end;

---

Страницы: 1 вся ветка

Текущий архив: 2004.02.02;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.045 c