<!--CodeS-->
procedure TRfCustListForm.Grid1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
Row,Col : Integer;
tmpClip : string;
begin
if (Button = mbRight) then
begin
//Data Import
tmpClip := '';
for Row := 1 to Grid1.RowCount do
begin
for Col := 0 to Grid1.ColCount do
begin
// 여기가 맞는건지 모르겠어요;ㄷ;
if Grid1.SelectedCells[Col, Row] then
begin
tmpClip := tmpClip + Grid1.cells[Col, Row] + #9;
end;
end;
tmpClip := tmpClip + #13;
end;
Clipboard.Clear;
Clipboard.Astext := tmpClip;
//ShowMessage('클립보드 복사 완료!');
end;
end;
<!--CodeE-->
모든 Cell은 복사가 가능한데..;
선택한 Cell은 복사가 안되내요ㅡㅜ
처음에는 배열로 했는데
배열로는 Clipboard.Astext랑 형태가 맞지 않는다고 해서요
물어보는것은 2가지입니다.
1. Grid에서 선택한 Cell만 클립보드로 저장하기(SelectedCells가 아닌거같아요;ㄷ;)
2. 혹시 배열로 저장해놓은것을 클립보드로 어떻게 옮기는지^^;
날씨가 덥습니다.. 모두 더위조심하시구요
즐델하세요~*
procedure TForm1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
edit1.text := intTostr(self.StringGrid1.Selection.Left);
edit2.text := intTostr(self.StringGrid1.Selection.Top);
edit3.text := intTostr(self.StringGrid1.Selection.Right);
edit4.text := intTostr(self.StringGrid1.Selection.Bottom);
end;
<!--CodeE-->