Q&A

  • 그리드에서 클립보드로 복사^^;
<!--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. 혹시 배열로 저장해놓은것을 클립보드로 어떻게 옮기는지^^;

날씨가 덥습니다.. 모두 더위조심하시구요

즐델하세요~*
1  COMMENTS
  • Profile
    nilriri™ 2005.06.21 08:31
    <!--CodeS-->
    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-->