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