procedure TForm1.formActivate(Sender: TObject);
var Y : integer;
begin
for y := 1 to 5 do
begin
StringGrid1.Objects[2, y] := Tbutton.Create(StringGrid1);
with Tbutton(StringGrid1.Objects[2, y]) do
begin
Parent := StringGrid1;
BoundsRect := StringGrid1.CellRect(2, y);
Width := StringGrid1.ColWidths[2];
Height := StringGrid1.RowHeights[2];
Caption := ' 삭제 ';
onclick := btnclick;
end;
end;
end;
내용:위는 소스는 스트링 그리드의 2번째 컬럼의 1행부터 5행까지의 셀에 버튼생성하는
소스 입니다.
질문:스트링그리드의 행은 총 20개 이고 화면에 보여지는 행의 갯수는 10개 입니다.
셀에서 키보드나 스크롤바를 움직여서 11번째 행부터 20번째 행까지의 내용을
볼수 있습니다.
그런데 셀의 키보드나 스트롤바를 움직여서 다른행으로 왔다갔다 하면 1번째행에서
5번째 행까지의 생성된 버튼이 없어졌다가 생겼다가 그러면서 1~5번째 행이 아닌
다른 행에서도 버튼모양이 있다가 없다가 하면서 토글 현상을 일으킵니다.
셀을 마우스가 키보드로 움직여도 버튼이 원래 위치에 있게 하려면 어떻게 해야
하는지..