Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как копировать одну ячейку StringGrid'a?

Автор: Vladimir13 8.12.2004, 16:01

подскажите как скопировать одну ячейку, ту, у которой мышка находиться.

Автор: Satana 8.12.2004, 16:32

а куда скопировать то? и что ты имеешь ввиду под "ту у которой мышка находится"? типа над которой курсор чтоли располагается?

Автор: _hunter 8.12.2004, 16:34

"ту, у которой мышка находиться", подразумеваеься выделенная?
если да, то:
StringGrid.Cells[Col][Row]

Автор: NiJazz 8.12.2004, 17:17

Если он имел в виду, что нужна именно та ячейка, над которой находится указатель мыши, то наверное, придётся считать координаты указаталя и самого грида.

Автор: Vladimir13 8.12.2004, 17:51

имелось ввиду следующее: есть StringGrid, надо скопировать содержимое ячейки.

Автор: _hunter 8.12.2004, 17:52

скопировать содержимое КАКОЙ ячейки?

Автор: Satana 8.12.2004, 18:07

Если тебя так устроит:

<чтонить текстовое>:=StringGrid1.cells[x,y]

ет если тебе определенную какуюто ячеку нада во чтонить скопировать

Автор: Vladimir13 8.12.2004, 18:41

поясняю: надо скопировать ячейку, которая выбирается курсором.

Автор: _hunter 8.12.2004, 18:43

тогда -- то, что я писал
StringGrid.Cells[Col, Row]

Автор: Mal Hack 8.12.2004, 18:53

Если скопировать в буфер, то:
clipboard.astext :=StringGrid.Cells[ACol, ARow];
И это надо повесить на OnSelectCell();

Автор: Vladimir13 9.12.2004, 14:25

procedure TForm1.StringGrid1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var p,j:integer;
begin
StringGrid1.MouseToCell(x,y,p,j);
Label5.Caption:=IntTostr(p);
Label6.Caption:=IntTostr(j);
end;

procedure TForm1.N8Click(Sender: TObject);
begin
d:=StrToInt(Label5.Caption);
f:= StrToInt(Label6.Caption);
Edit3.Text:=StringGrid1.Cells[d,f];
end;

procedure TForm1.N17Click(Sender: TObject);
begin
d:=StrToInt(Label5.Caption);
f:= StrToInt(Label6.Caption);
Edit3.Text:=StringGrid1.Cells[d,f];
end;

Метод придуман Patrius, но доработан мной.