Edit и его свойство Height

[Rifler]

Есть форма и Edit1.

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Height:= 250;
end;

Никакого эффекта! Причем width меняется без проблем.
Если добавить Button и написать:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Height:= 250;
end;

то по щелчку на Button1 - все ОК.

Пробовал в 7 и 2010 версиях.

Почему так?

[mihali4]

Потому что это нужно делать по событию FormActivate...

[Rifler]

Жесть...то есть width менять можно, а height нельзя

[Alter]

Сообщение от mihali4

Потому что это нужно делать по событию FormActivate...

Ничего подобного:

procedure TForm1.FormCreate(Sender: TObject);
begin
 Edit1.AutoSize := False; // <= это добавить и будет работать
 Edit1.Height := 75;
end;

[mihali4]

Сообщение от Alter

Ничего подобного

Это вы явно погорячились...
Два разных подхода к решению, вот и все.
А если по каким-то соображениям нельзя делать AutoSize := False ?

[Alter]

Тут ничего про него не говорилось, следовательно решение верное.