StringGrid에서 셀들을 선택하면 선택된 정보는 Selection 프로퍼티에서
확인할 수 있습니다.
따라서 선택된 셀들에게 어떤 작업을 하고자 한다면
//
// 스트링 그리드에서 선택된 셀에 작업하기
//
procedure TForm1.Button1Click(Sender: TObject);
var
ACol, ARow: Integer;
begin
with StringGrid1 do
for ARow := Selection.Top to Selection.Bottom do
for ACol := Selection.Left to Selection.Right do
Cells[ACol, ARow] := 'DADA'; <== 넣고 싶은 데이터
end;
반대로 코드를 이용해서 영역이 선택되도록 할 수도 있겠지요.
//
// 스트링그리드 셀 선택하기
//
procedure TForm1.Button2Click(Sender: TObject);
var
ASelection: TGridRect;
begin
with ASelection do
begin
Top := 1;
Left := 1;
Bottom := 5;
Right := 5;
end;
StringGrid1.Selection := ASelection;
end;
from. civilian/안영제
|