Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

San1712 © (2008-06-09 21:08:00)
Здраствуйте
Как с помощью кода изменить высоту формы ?
В приведённом ниже коде высота не меняется перепробовал разные варианты с 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;

Поросенок Винни-Пух (2008-06-10 09:00:00) [1]
В приведённом ниже коде высота не меняется .....

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;

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

PZ (2008-06-10 08:44:00) [2]
Например так, высота меняется:
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;

МистерТ (2008-06-10 08:17:00) [3]
> > В приведённом ниже коде высота меняется
> >
>
> Токо вот непонятно. Высота чего меняется?
И непонятно где это нижеприведенный код О_о

Германн (2008-06-10 02:13:00) [4]

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

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

Поросенок Винни-Пух (2008-06-09 23:59:00) [5]
В приведённом ниже коде высота не меняется

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

MsGuns (2008-06-09 23:56:00) [6]
Скорее оговорка ;)

Тын-Дын (2008-06-09 23:41:00) [7]

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

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

MsGuns (2008-06-09 23:36:00) [8]
>Form.Length

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

Тын-Дын (2008-06-09 22:56:00) [9]

> San1712 (09.06.08 21:08)

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

MsGuns (2008-06-09 22:31:00) [10]
Если не смотреть на то, что шаман кидает в котел.. где собсна Show ?
Или создаваемая форма в списке автосоздаваемых ? Или она MDIChild ? Тогда ясно, что ничего не меняется ;)

Palladin (2008-06-09 22:05:00) [11]
только одержимым модет прийти в голову добиться цели с помощью магии... то бишь безсвязного набора букв складывающихся во, вроде бы разумные, звуки

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »