Memo größe zur Laufzeit ändern!

[Jan]

Problem gelöst:

Code:

procedure TForm1.FormResize(Sender: TObject);
begin
memo1.width:=(form1.clientwidth div 2)-20;
memo1.height:=(form1.clientheight div 2)-20;
memo2.width:=(form1.clientwidth div 2)-20;
memo2.height:=(form1.clientheight div 2)-20;
memo3.width:=(form1.clientwidth div 2)-20;
memo3.height:=(form1.clientheight div 2)-20;
memo4.width:=(form1.clientwidth div 2)-20;
memo4.height:=(form1.clientheight div 2)-20;
memo2.left:=(form1.clientwidth div 2)+10;
memo3.top:=(form1.clientheight div 2)+10;
memo4.top:=(form1.clientheight div 2)+10;
memo4.left:=(form1.clientwidth div 2)+10;
end;