как установить ширину и высоту формы в Delphi - PullRequest
Новая
       16

как установить ширину и высоту формы в Delphi

5 голосов
/ 27 июня 2011

Как настроить ширину и высоту формы в Delphi 7? Форма содержит различные типы элементов управления. Мне нужно установить основной размер формы 127x263. Это должно измениться программно в нажатие кнопки.

1 Ответ

14 голосов
/ 27 июня 2011

Примерно так: 

MainForm.Width := 127;
MainForm.Height := 263;

Или, возможно, вы хотите установить клиентскую область в эти размеры: 

MainForm.ClientWidth := 127;
MainForm.ClientHeight := 263;

Конечно, вы чаще всего устанавливаете эти свойства в Инспекторе объектовво время разработки, а затем они записываются в файл .dfm вашей формы.

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

procedure TMainForm.Button1Click(Sender: TObject);
begin
  Width := 127;
  Height := 263;
end;

В этом последнем отрывке вам не нужно указывать экземпляр объекта MainForm, поскольку обработчик событий является членом класса TMainForm и, следовательно, Self неявный.

ЕслиВы хотите последовать совету Ульриха Герхардта (см. комментарий) и использовать SetBounds, тогда вы бы написали: 

SetBounds(Left, Top, 127, 263);

Наконец, если ваша форма имеет Scaled = True, то вам нужно иметь дело с масштабированием шрифта.Подобные жестко заданные размеры в пикселях не подойдут для компьютеров с масштабированием шрифта, отличным от вашего компьютера.

...