Set the left control (Control1
, say) to alLeft
and the right control (Control2
, say) to alClient
. Then create a OnResize
handler on the parent form:
procedure TForm1.FormResize(Sender: TObject);
begin
Control1.Width := ClientWidth div 2;
end;