제가 구현할려는 것은, Panel1, Splitter1 순서로 PageControl의 TabSheet에 나타낼려고 합니다.
소스는 아래와 같습니다.
procedure TfrmMain.PageControl1Change(Sender: TObject);
begin
Panel1.Parent := PageControl1.ActivePage; //Parent Control 지정
Panel1.Align := alTop; //Top으로 위치 지정
Splitter1.Parent := PageControl1.ActivePage; //Parent Control 지정
Splitter1.Align := alTop; //Panel1 바로 아래에 붙도록 지정
end;
처음에는 화면 위부터 Panel1, Splitter1 순서대로 나타납니다.
하지만 2번째 이벤트 발생시부터는 Splitter1, Panel1 으로 화면에 나타납니다.
Splitter1.Align := alTop 으로 지정하는 순간 Panel1이 Splitter 다음으로 밀립니다.
이 때, Panel1의 Align 속성을 조사해보니 alTop 이었습니다.
여러 글을 찾아보고, 혼자서 많은 방법으로 실행을 해봤는데 잘 이해가 안 됩니다.
아시는 분들의 조언 부탁드립니다.
위치 변경을 하구 싶으시다믄 스플리터를 먼저 지정해 주시던지
아니면 스플리터의 Top을 패널의 높이보다 크게 지정하시면 될겁니다