Как вы делаете событие OnResize TFrame, когда оно появляется первым?

Question

У меня есть рамка, которая помещается в форму. Я ожидаю разместить несколько экземпляров этого фрейма в форме.

У этого есть drawgrid с 2 столбцами, и в событии OnResize я делаю второй столбец, простирающийся до конца доступного пространства. Это работает, когда форма вручную изменяется с помощью рамки Align, установленного в alTop. Но когда форма появляется впервые, хотя FrameResize получает вызов, это не имеет никакого эффекта. (Хотя он действительно имел желаемый эффект, когда я наложил на него точку останова).

Итак, что я делаю сейчас, вызывается FrameResize из форм OnShow-обработчика, но это уродливо. Рамка должна быть правильно сформирована без помощи формы.

Любые идеи? Я попытался переопределить SetParent, но это не сработало. Использование Xe2.

ТИА Марк

Answer 1

я решил его с советом из Питера Below, член Delphi Team B Delphi.

I overrode рамки рамки рамки. Его вызывали еще до того, как были заданы переменные компонента, поэтому он выглядит так:

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};