Цитата(MrDmitry @ 30.10.2008, 12:40  ) | | Как можно включить редактирования 1 столбца из поля стрингрид (всего столбца 2, нуливой, и первый.) |
В событие OnSelectCell вставь следующий код:
| Код |
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
begin
if ACol = 1 then
StringGrid1.Options := [goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect,goEditing]
else
StringGrid1.Options := [goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect]
end;
|
Добавлено через 2 минуты и 37 секунд
или так - кому как нравится:
| Код |
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
begin
case ACol of
0: StringGrid1.Options := [goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect];
1: StringGrid1.Options := [goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect, goEditing];
end;
end;
|
|
