Здраствуйте
Как с помощью кода изменить высоту  формы ?
В приведённом ниже  коде высота не меняется перепробовал разные варианты с AutoSize и BorderStyle так и не смог выставить нужную высоту.
Form := TForm.Create(Application);
 with Form do
   begin
     Canvas.Font := Font;
     DialogUnits := GetAveCharSize(Canvas);
     BorderStyle := bsDialog;
     Caption := ACaption;
     Height:=350;
     Width:=278;
     Position := poScreenCenter;
     Prompt := TLabel.Create(Form);
  end;

только одержимым модет прийти в голову добиться цели с помощью магии... то бишь безсвязного набора букв складывающихся во, вроде бы разумные, звуки

Если не смотреть на то, что шаман кидает в котел.. где собсна Show ?
Или создаваемая форма в списке автосоздаваемых ? Или она MDIChild ? Тогда ясно, что ничего не меняется ;)

> San1712   (09.06.08 21:08) 


Изменить Form.Width и Form.Length вполне достаточно.
Ошибка где-то в другом месте.

>Form.Length

Что-то новое в Делфи ?

> MsGuns ©   (09.06.08 23:36) [4]
> >Form.Length Что-то новое в Делфи ?


Трудно не понять, что это опечатка-)

Скорее оговорка ;)

В приведённом ниже  коде высота не меняется

В приведённом ниже  коде высота меняется

> Поросенок Винни-Пух ©   (09.06.08 23:59) [7]
>
> В приведённом ниже  коде высота не меняется
>
> В приведённом ниже  коде высота меняется
>

Токо вот непонятно. Высота чего меняется?

> > В приведённом ниже  коде высота меняется
> >
>
> Токо вот непонятно. Высота чего меняется?
И непонятно где это ниже приведенный код О_о

Например так, высота меняется:

В приведённом ниже  коде высота не меняется .....

Form := TForm.Create(Application);
with Form do
  begin
    Canvas.Font := Font;
    DialogUnits := GetAveCharSize(Canvas);
    BorderStyle := bsDialog;
    Caption := ACaption;
    Height:=350;
    Width:=278;
    Position := poScreenCenter;
    Prompt := TLabel.Create(Form);
 end;

В приведенном выше коде высота меняется