Как установить элемент выравнивания половины всей формы в Delphi 7?

Question

Здравствуйте, я создаю форму и помещаю в форму два DBGrid. И установите выравнивание слева направо от обоих. Когда я запускаю программу и максимизируемое окно ширины DBGrid не меняется. что мне нужно изменить ширину обоих DBGrid до 50% от окна?

Answer 1

Установить левый элемент управления (Control1, Сказать alLeft и правильный контроль (Control2, Сказать alClient, Затем создайте OnResize обработчик в родительской форме:

procedure TForm1.FormResize(Sender: TObject);
begin
  Control1.Width := ClientWidth div 2;
end;