// <사용방법> 아래 코딩을 하신후에 StringGrid의 어떤 프로퍼티도 변경할 필요가 없습니다
// Button1 을 클릭하시면 StringGrid의 특정영역이 선택되고 그 내용을 클립보드로
// 복사한 다음 다시 Memo 에 붙여넣기가 됩니다
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, Grids, clipbrd;
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Memo1: TMemo;
Button1: TButton;
procedure FormActivate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure CopyStreamToClipboard(S: TStream; fmt: Word);
var
hMem: THandle;
pMem: Pointer;
begin
{stream의 위치를 맨 앞으로 이동시킨다}
S.Position := 0;
{stream의 크기만큼 전역 힙(heap)에 메모리 블록을 할당한후 윈도우 핸들을 얻는다}
hMem := GlobalAlloc(GHND or GMEM_DDESHARE, S.Size);
if hMem <> 0 then
begin
{전역 힙의 할당된 메모리 블록을 고정(lock)시킨다}
pMem := GlobalLock(hMem);
if pMem <> nil then
begin
{할당받은 메모리 블럭에 stream의 내용을 복사한다}
S.Read(pMem^, S.Size);
{위의 S.Read()에 의해 증가된 포인터를 다시 맨 앞으로 이동시킨다}
S.Position := 0;
{전역 힙에서 메모리 블록의 잠금 해제}
GlobalUnlock(hMem);
{클립보드를 열러서 주어진 포맷(여기서는 CF_TEXT)과 윈도우 핸들로 지정된
데이타를 클립보드에 준다}
Clipboard.Open;
try
Clipboard.SetAsHandle(fmt, hMem);
finally
Clipboard.Close;
end;
end
else
begin
{메모리 lock의 실패로 memory block 예외를 발생시킨다}
GlobalFree(hMem);
OutOfMemoryError;
end;
end
else
begin
{메모리 할당의 실패로 memory block 예외를 발생시킨다}
OutOfMemoryError;
end;
end;
procedure CopySelectedGridToClipboard(theGrid: TStringGrid);
var
m: TMemoryStream;
i, j: Integer;
S: String;
begin
m := TMemoryStream.Create;
try
with theGrid do
for i := theGrid.Selection.Top to theGrid.Selection.Bottom do
for j := theGrid.Selection.Left to theGrid.Selection.Right do
begin
S := Cells[j, i];
// 맨 마지막 선택된 Column이면 CR/LF 를 추가하여 행구분
if j = theGrid.Selection.Right then
AppendStr(S, #13#10)
else
AppendStr(S, #9); // 각 Column을 Tab 문자로 구분
m.WriteBuffer(S[1], Length(S));
end;
S[1] := #0; // 문자열 stream의 끝 표시
m.WriteBuffer(S[1], 1);
CopyStreamToClipboard(m, CF_TEXT); // stream의 내용을 클립보드로 복사
finally
m.Free;
end;
end;
procedure TForm1.FormActivate(Sender: TObject);
var
i, j: Integer;
begin
// Column의 title을 만든다
for i := 1 to StringGrid1.ColCount - 1 do
StringGrid1.Cells[i, 0] := Char(Ord('A')+i-1);
// Row의 title을 만든다
for i := 1 to StringGrid1.RowCount - 1 do
StringGrid1.Cells[0, i] := IntToStr(i);;
// 임의의 자료를 만들어서 각 cell에 입력합니다
for i := 1 to StringGrid1.ColCount - 1 do
for j := 1 to StringGrid1.RowCount - 1 do
StringGrid1.Cells[i, j] := Format('%.0n', [i * j * 10000.0]);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
SelectedRectangle: TGridRect;
CoordTopLeft, CoordBottomRight: TGridCoord;
begin
// 선택하고자 하는 직사각형 영역을 설정한다
CoordTopLeft.X:= 2; // 두번째 컬럼부터 선택
CoordTopLeft.Y:= 1; // 첫번째 행부터 선택
CoordBottomRight.X:= StringGrid1.RowCount - 2; // 마지막 컬럼의 전컬럼
CoordBottomRight.Y:= StringGrid1.ColCount - 2; // 마지막 행의 전행
// 직사각형 영역을 TGridRect 에 할당한다
with StringGrid1 do
begin
SelectedRectangle.TopLeft := CoordTopLeft;
SelectedRectangle.BottomRight := CoordBottomRight;
end;
StringGrid1.Selection:= SelectedRectangle;
// StringGrid의 선택된 영역을 클립보드로 북사
CopySelectedGridToClipboard(StringGrid1);
// 클립보드의 내용을 메모로 붙여넣기(테스트용)
Memo1.Clear;
Memo1.PasteFromClipboard;
end;
end. |
|
