Delphi-PRAXiS - Delphi Größen von Objekten in einer Form anpassen

hatte mich auch gerade mit diesem thema beschäftigt, es aber anders gelöst, war zumindest für mich so am einfachsten

Delphi-Quellcode:

			procedure TForm1.FormResize(Sender: TObject);

var w,h : integer;

begin

// differenz

w := form1.Width - 871;

h := form1.Height - 692;

SynEdit1.width  := 857 + w;

BitBtn2.width   := 857 + w;

GroupBox1.width := 857 + w;

GroupBox2.width := 857 + w;

Edit1.width := 617 + w;

Edit2.width := 617 + w;

Edit3.width := 617 + w;

Edit4.width := 441 + w;

Edit5.width := 441 + w;

BitBtn1.Left      := 720 + w;

CheckBox1.Left    := 720 + w;

RadioButton1.Left := 544 + w;

RadioButton2.Left := 544 + w;

RadioButton3.Left := 680 + w;

SynEdit1.height := 321 + h;

GroupBox2.top   := 536 + h;

end;

das ganze gehört ins onrezize vom form rein, naja ist ja schon das komplete resize wenn vorher nichts drinn war :D
in w und h wird die differenz berechnet, die beiden zahlen sind die startgröße vom programm

an den ankern habe ich nichts geändert, somit kann man die breite prima bestimmen, nur ist leider halt immer hardgecodet, aber was solls, hauptsache es geht :D

ach ja sämtliche zahlen hier sind die angaben womit das programm erstellt wurde
muß man dann halt schauen wie man was verändern möchte

width --> ist die breite
top --> position von oben
left --> position von links