Resize elementer (Delphi2)

for i:= 0 to form1.ComponentCount-1 do
  if form1.Components[i].name = 'x' then

(Ovenstående fungerer i Delphi 3).

Iøvrigt kan det være nødvendigt med følgende hvis brugeren har valgt LargeFonts i sin windows-opsætning:

  FontFactor  := label1.font.PixelsPerInch/96;
    { for at kunne justere billedstørrelser afhængig af windows' font valg}
    { LargeFonts vil ellers ødelægge de valgte screenstørrelser          }

i FormCreate placeres så

  Height := round(height * FontFactor);
  Width  := round(width  * FontFactor);

Min umiddelbare tanke er: Opgradér!

I øvrigt er det noget skod at spørge på komponent-navne. Det er dømt til at fejle! Hvis du har kaldt knappen "Button1" og en klogere (!) programmør omdøber den til et mere sigende navn, eksempelvis "btnDelteRecord" så har vi problemet.

Den meget smartere er:
  if form1.Components[i] = Button1 then ...

Hvis den omdøbes kan programmet ikke oversættes og fejlen vil blive fanget.

hrc - men så kan han jo lige så godt løbe alle kompnenterne igennem "manuelt" ?
Iøvrigt kan han vel også i Delphi 2 bruge følgende som fungere i D3  ??:
  if Components[i] is tLabel then
    begin
    tLabel(Components[i]).top := 33*i;
    tlabel(components[i]).font.color:=  clRed;
    end;

Er der ikke Anchors i Delphi 2? Det er da sådan noget man bruger dem til (Slå alle til hvis komponenterne skal ændre størrelse, slå alle fra hvis du bare skal bevare den relative afstand).

pidgeot: Anchors kom i D5 eller D6.

a_nor: Det er klart at man ikke behøver gennemløbe Components-listen. Det letteste var nok at placere komponenterne på en TPanel og via dens OnResize justere dem:

var
  Panel : TPanel;
begin
  Panel := (Sender as TPanel);

  // Hvis den skal højrestilles:
  Button.Left := Panel.Width - Button.Width - 8;

  // Hvis bredden skal justeres:
  Button.Width := Panel.Width - Button.Left - 8;