Работа с компонентом TStringGrid

[max38934]

Подскажите, как реализовать так, чтобы ячейку TStringGrid можно было скопировать в буфер(ctrl+c), но при этом не возможно редактировать эту ячейку?

[VaBank]

в Uses формы прописываешь модуль Clipbrd
Потом на событии KeyDown компонента TStringGrid пишешь следующее:

procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (ssCtrl in Shift) and (key = 67) then
  Clipboard.AsText:=StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row];
end;

ssCtrl - это клавиша Ctrl, еще есть ssShift и ssAlt
67 - код клавиши С, коды клавишь можешь посмотреть на моем портале

Теперь достаточно просто выделить ячейку и нажать комбинацию Ctrl+C и данные будут в буфере обмена Windows

[mihali4]

Сообщение от max38934

но при этом невозможно редактировать эту ячейку?

По умолчанию в опциях стоит goEditing:=False;

[VaBank]

Сообщение от mihali4

По умолчанию в опциях стоит goEditing:=False;

Ну верно. Он и задал вопрос, как скопировать данные в буфер при goEditing:=False.

[max38934]

Спасибо !!!!
Еще вопрос :
Имеется ли ф-я, которая бы сразу очистила все ячейки?

[S@fer]

Имеется ли ф-я, которая бы сразу очистила все ячейки?

procedure TForm1.BitBtn1Click(Sender: TObject);
var ,i,j:integer;
begin
for i:=0 to (StringGrid1.RowCount-1) do
for j:=0 to (StringGrid1.ColCount-1) do
StringGrid1.Cells[i,j]:='';
end;

[Stilet]

Не припомню такой.
впрочем всегда можно в цикле пройти по строкам и визвать StringGrid.Rows[i].clear