Как с помощью кода изменить высоту формы ?

← →
San1712 (2008-06-09 21:08) [0]

Здраствуйте
Как с помощью кода изменить высоту формы ?
В приведённом ниже коде высота не меняется перепробовал разные варианты с 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;

← →
Palladin © (2008-06-09 22:05) [1]

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

← →
MsGuns © (2008-06-09 22:31) [2]

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

← →
Тын-Дын © (2008-06-09 22:56) [3]

> San1712 (09.06.08 21:08)

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

← →
MsGuns © (2008-06-09 23:36) [4]

>Form.Length

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

← →
Тын-Дын © (2008-06-09 23:41) [5]

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

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

← →
MsGuns © (2008-06-09 23:56) [6]

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

← →
Поросенок Винни-Пух © (2008-06-09 23:59) [7]

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

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

← →
Германн © (2008-06-10 02:13) [8]

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

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

← →
МистерТ (2008-06-10 08:17) [9]

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

← →
PZ (2008-06-10 08:44) [10]

Например так, высота меняется:
Var Form : tForm; procedure TForm1.Button1Click(Sender: TObject); begin Form := TForm.Create(Application); with Form do begin Canvas.Font := Font; // DialogUnits := GetAveCharSize(Canvas); BorderStyle := bsDialog; // Caption := ACaption; // Height:=350; Height:= StrToInt(Edit1.Text); // Задать высоту формы Width:=278; Position := poScreenCenter; // Prompt := TLabel.Create(Form); Show; end; end;

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

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;

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

Как с помощью кода изменить высоту формы ? Найти похожие ветки