황익순 께서 말씀하시기를...

> 제발 답변좀 해주세요...

>

> 스트링그리드에서 지원하는건 연속적인 데이타에 대해서만 다중선택(Multi Selection)이 가능 하더군요...

>

> 불행이도 저는 불연속적인 데이타에 대해서 다중선택해야 됩니다... 흑흑흑..

>

> 도와주세요...

>

> 고수님들 방법좀 가르쳐주세요... 부탁합니다...



황익순님 안녕하세요?

아래 내용은 영대님의 스트링 그리드 멀티셀렉트 팁입니다.

응용하시면 충분히 해결하실수 있으실 겁니다.

즐거운 프로그래밍 되세요~ ^^



// <사용방법> 아래 코딩을 하신후에 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.