여러 셀을 그리드에서 클립 보드로 Excel 형식으로 복사 하시겠습니까?

Question

SQL 데이터베이스에 연결하고 데이터 집합을 가져온 도구에서 작업 중이며 해당 데이터를 표에 표시합니다. 사용자는 셀 블록 (직사각형)을 선택하고 CTRL + C을 눌러 클립 보드로 복사 할 수 있어야합니다. 엑셀에 붙여 넣을 수있는 형식으로

• :

  어떻게 이렇게합니까? 이미 기성품이 있기를 바라고 있습니다. Excel과 같은 모든 클립 보드 기능이 필요하지 않으며 사각형 셀 그룹을 강조 표시하고 클립 보드에 복사하기 만하면됩니다.

• TStringGrid에서 수행 할 수 있다면 내 기능을 유지하는 것을 선호하지만이 기능을 지원하는 구성 요소에서도 작동 할 수 있습니다.

Answer 1

당신은 TAB delimited text 같이 셀 값을 복사하려고 할 수 있습니다,이 코드 같은 작업을 수행합니다

procedure TForm1.Button1Click(Sender: TObject); 
var 
    S: string; 
    X, Y: Integer; 
begin 
    S := ''; 
    for Y := StringGrid1.Selection.Top to StringGrid1.Selection.Bottom do 
    begin 
    for X := StringGrid1.Selection.Left to StringGrid1.Selection.Right - 1 do 
     S := S + StringGrid1.Cells[X, Y] + #9; 
    S := S + StringGrid1.Cells[StringGrid1.Selection.Right, Y] + sLineBreak; 
    end; 
    Delete(S, Length(S) - Length(sLineBreak) + 1, Length(sLineBreak)); 
    Clipboard.AsText := S; 
end;