23.05.2010, 17:45
|
 |
I Like it!
|
|
Регистрация: 12.12.2009
Адрес: Россия, г. Новосибирск
Сообщения: 663
Версия Delphi: D6/D7
Репутация: 26643
|
|
Код:
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
if ACol = 4 then
StringGrid1.Options := StringGrid1.Options - [goEditing]
else
StringGrid1.Options := StringGrid1.Options + [goEditing];
end;
Admin: Пользуемся тегами! |