Это исходник Label2, формирующийся на FormCreate
:
Label2.Font.Height:=24;
Label2.Font.Name:='Trebuchet MS';
Label2.WordWrap:=True;
Label2.Height:=64;
Label2.Font.Color:=$ff0000;
Label2.Width:=1000;
Далее идёт кнопка с событием Button2Click
, и ни чего сложного в ней, для Label2
не происходит, тем более не меняется его ширина. (ширина вообще ни где не меняется от заданной.)
Код на label2 в Button2
r:=Random(r);
Label2.Caption:=AdoQuery1.Fields[1].asString+' ['+IntToStr(r)+']';
И если тыкать кнопку много раз, то я заметил, что ширина Label2
стремится потихоньку сужается по ширине, я так думаю, идёт к дефолтному значению.
В Label2
попадают вопросы 2-4-х строчные, поэтому он постепенно превращается в столбик(!) в 6-10 и более строк.
Почему так происходит?