изменение размера формы - Lazarus, Free Pascal, CodeTyphon

пролдж · 14.11.2017, 13:59

Как изменить ширину и высоту формы, вводя данные в edit и нажав кнопку?

Serge_Bliznykov · 14.11.2017, 14:26

так попробуйте:

Код:

Form1.Width := StrToInt(Edit1);
Form1.Height := StrToInt(Edit2);

type_Oleg · 14.11.2017, 15:16

Можно даже Form1. не писать. Если форма одна.

newerow1989 · 14.11.2017, 16:53

Цитата:

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

Можно даже Form1. не писать. Если форма одна.

Полностью согласен, но не дописан .Text:

Код:

Width := StrToInt(Edit1.Text);
Height := StrToInt(Edit2.Text);

Serge_Bliznykov · 14.11.2017, 17:36

Цитата:

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

но не дописан .Text:

да, да, спасибо, это я косякнул.

пролдж · 19.11.2017, 12:41

спасибо! все работает с добавлением .text ))

newerow1989 · 19.11.2017, 12:42

14.11.2017, 13:59	#1
пролдж Регистрация: 14.11.2017 Сообщений: 3	изменение размера формы Как изменить ширину и высоту формы, вводя данные в edit и нажав кнопку?

14.11.2017, 14:26	#2
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	так попробуйте: Код: `Form1.Width := StrToInt(Edit1); Form1.Height := StrToInt(Edit2);`

19.11.2017, 12:42	#7
newerow1989 Я самый любопытный Участник клуба Регистрация: 24.07.2012 Сообщений: 1,987	С запрограммированным приветом, Неверов Евгений! Сайт: http://newerow1989.ru [Паскаль] [Delphi]

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Изменение размера формы	Решетова Алена	Общие вопросы Delphi	2	03.04.2013 18:45
Ступенчатое изменение размера формы	tsar_	Общие вопросы Delphi	2	05.09.2012 10:57
Изменение размера формы.	waterya	Общие вопросы Delphi	2	18.06.2010 16:38
изменение размера формы	maksim_serg	Microsoft Office Excel	0	16.04.2010 04:22
изменение размера формы (bsNone)	Sowa	Общие вопросы Delphi	7	07.02.2010 09:11

14.11.2017, 15:16	#3
type_Oleg Старожил Регистрация: 02.03.2008 Сообщений: 2,504	Можно даже Form1. не писать. Если форма одна.

19.11.2017, 12:41	#6
пролдж Регистрация: 14.11.2017 Сообщений: 3	спасибо! все работает с добавлением .text ))