Two things:
1. What does happen for you? "It doesn't work" is a bit generic as a "failure message"
2. You are sure you want to öpost in English in the German branch of Delphipraxiy?
Regards
TurboMagic
And you program in German or English?
I'm not German or American.
Delphipraxis is a good forum, only some users can not advise, but only spam.
I've already advised someone on the forum and I expect someone to advise me too!
Delphi-Quellcode:
var
i: integer;
Item : TControl;
begin
for I := FlowLayout1.ControlsCount -1 downto 0 do
begin
Item := FlowLayout1.Controls[i];
Item.Width := (FlowLayout1.Width / 3) -10;
Item.Height := Item.Width;
end;