TFrame의 OnResize 이벤트가 처음 나타날 때 어떻게 만드나요?

Question

폼에 프레임이 있습니다. 폼에이 프레임의 인스턴스를 여러 개 배치 할 것으로 예상됩니다.

2 열이있는 drawgrid가 있고 OnResize 이벤트에서 두 번째 열을 사용 가능한 공간의 끝까지 확장합니다. 이는 폼이 alTop으로 정렬 된 프레임을 사용하여 수동으로 크기가 조정될 때 작동합니다. 그러나 FrameResize가 호출 되더라도 폼이 처음 나타날 때 아무 효과가 없습니다. (비록 내가 그것에 브레이크 포인트를 두었을 때 원하는 효과를 가졌지 만).

그래서 지금 내가하고있는 일은 폼의 OnShow 핸들러에서 FrameResize를 호출하는 것입니다.하지만 이것은 추한 것입니다. 프레임은 양식의 도움없이 올바르게 형성 될 수 있어야합니다.

아이디어가 있으십니까? SetParent를 재정의하려고 시도했지만 작동하지 않았습니다. Xe2 사용.

TIA 마크

Answer 1

나는 다음은 피터, 델파이 팀 B 델파이 멤버로부터 조언을 해결했다.

나는 프레임의 경계를 오버로드했다. 구성 요소 변수가 설정되기 전에 호출되기 시작 했으므로 다음과 같이 표시됩니다.

procedure TfaDupDisplay.SetBounds(ALeft, ATop, AWidth, AHeight: Integer); // Had to use SetBounds because OnRezise was not working 
var grid: TDrawGrid; 
begin 
    inherited; 
    if pnlWebData = nil then 
    exit; 
    pnlWebData.Width := Width div 2; 
    for grid in TArray<TDrawGrid>.Create(grdData, grdDup) do 
    grid.ColWidths[1] := grid.Width - grdData.ColWidths[0]; 
end{ SetBounds};