2 Edits nebeneinander gleichzeitig vergrößern

[Hawkeye219]

Hallo wth,

wenn die Edit-Controls direkt auf dem Formular liegen, kannst du folgenden Code einsetzen:

Delphi-Quellcode:

procedure TForm1.FormAlignPosition(Sender: TWinControl; Control: TControl;
  var NewLeft, NewTop, NewWidth, NewHeight: Integer; var AlignRect: TRect;
  AlignInfo: TAlignInfo);
const
  EditBorder = 16;  // Abstand der Edit-Controls vom linken/rechten Rand
  EditGap    = 8;   // Abstand zwischen den Edit-Controls
var
  EditWidth : Integer;
begin
  EditWidth := (ClientWidth - 2 * EditBorder - EditGap) div 2;

  Edit1.Left := EditBorder;
  Edit1.Width := EditWidth;

  Edit2.Left := ClientWidth - EditBorder - EditWidth;
  Edit2.Width := EditWidth;
end;

Die Routine verbindest du mit dem Ereignis OnAlignPosition des Formulars. Bei beiden beteiligten Edit-Controls muss die Eigenschaft Align auf den Wert alCustom gesetzt werden.

Eine Alternative wäre vielleicht die Verwendung der Komponente TGridPanel.

Gruß Hawkeye