답변 감사드립니다. 코드상 문제가 있다는것이라도 알아서 다행이네요 ㅜ.ㅡ
원인이 먼지 어떤식으로 해결할 수 있는지 크게라도 조금만 조언해주시면 안될런지요..
AdvGrid는 상용컴포넌트인거처럼 본 것 같은데.. 확인해 봐야겠네요..
다시 한번 답변 감사드립니다 ㅜ.ㅠ
civilian,안영제 님이 쓰신 글 :
: 이 코드상으로 보면 당연히 그럴 수 밖에 없습니다.
: 간단히 몇줄 수정하는 방법으로 해결할 수 있는 문제가 아니라
: 상세한 설명을 드리긴 좀 어렵군요.
:
: AdvGrid나 기타 컴포넌트를 사용하실 것을 권해드립니다.
:
:
: 박제홍 님이 쓰신 글 :
: : 아래와 같은 루틴이 있습니다.
: :
: : for i := 1 to LoadOutConstant.CountOfBogieTransport do
: : begin
: :
: : cbGroup := TComboBox.Create(BogieTrnsGrid);
: : cbRect := BogieTrnsGrid.CellRect(3,i);
: : with cbGroup do
: : begin
: :
: : Parent := BogieTrnsGrid;
: : Left := cbRect.Left;
: : Top := cbRect.Top;
: : Width := cbRect.Right - cbRect.Left;
: : Height := cbRect.Bottom - cbRect.Top;
: : ClientHeight := 100;
: :
: : end; { with cbGroup }
: :
: : BogieTrnsGrid.Objects[3,i] := cbGroup;
: :
: : cbType := TComboBox.Create(BogieTrnsGrid);
: : cbRect := BogieTrnsGrid.CellRect(2,i);
: :
: : with cbType do
: : begin
: :
: : Parent := BogieTrnsGrid;
: : Left := cbRect.Left;
: : Top := cbRect.Top;
: : Width := cbRect.Right - cbRect.Left;
: : Height := cbRect.Bottom - cbRect.Top;
: : ClientHeight := 100;
: : end; { with cbType }
: :
: : BogieTrnsGrid.Objects[2,i] := cbType;
: :
: : end; { for i }
: :
: : 화면의 그리드 상에는 콤보 박스가 문제 없이 잘 올라 가는데
: :
: : 옆에 스크롤 바를 눌러서 아래로 내려가면 화면이 깨집니다.
: :
: : 먼가 방법이 있을 것 같은데.. 이것저것 다 해봐도 도통 모르겠습니다.
: :
: : 고수님들의 조언 기다립니다 ㅜ.ㅡ
: :
: : 그러니까, 한 화면 안에 들어가는 경우에는 아무런 문제도 일어나지 않지만
: :
: : RowCount가 많아져서 스크롤이 생기는 경우에 콤보박스가 떠 있는 상태에서
: :
: : 스크롤을 위아래로 해보면.. 문제가 발생합니다. 미치겠군요 정말. ㅜ.ㅠ
|