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

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


alignment delphi dbgrid
person iProgrammer    schedule 01.05.2013    source источник
comment
Я хочу сделать это как Total Commander: ширина двух элементов на 50% ширины.   -  person iProgrammer    schedule 01.05.2013

Ответы (1)


arrow_upward
3
arrow_downward

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

procedure TForm1.FormResize(Sender: TObject);
begin
  Control1.Width := ClientWidth div 2;
end;
person Andreas Rejbrand    schedule 01.05.2013