|
Вопрос # 6 599/ вопрос решён / |
|
Доброго времени суток, уважаемые эксперты!
Появилась проблема при решении задачи.
Задача:
Написать приложение, состоящее из 2-х форм. На первой расположить:
- два текстовых поля, в которых задаются размеры второй формы;
- кнопку «Форма 2», при нажатии на которую открывается вторая форма заданного размера;
- кнопку «Изменить», при нажатии на которую Форма 2 то увеличивает, то уменьшает размеры до определенных пределов.
Непосредственно трудности возникли при работе с третьим условием задачи. Имеются две готовые формы, с расположенными на них объектами, но не имеется даже примерного представления кода, который бы выполнял третье условие.
При попытке найти готовые задачи и попробовать разобраться с кодом, потерпела неудачу. Так как хотелось бы разобраться с этим самой, то присвоить готовую задачу даже не думала. Хотелось бы знать на будущее, как работать с такими условиями. Пожалуйста, помогите.
 |
Вопрос задала: Rina_Frost (статус: Посетитель)
Вопрос отправлен: 26 сентября 2015, 16:52
Состояние вопроса: решён, ответов: 1.
|
Ответ #1. Отвечает эксперт: DNK
Здравствуйте, Rina_Frost!
procedure TForm2.btn_SizeClick(Sender: TObject);
begin
Form3.Height := StrToInt(Edit1.Text);
Form3.Width := StrToInt(Edit2.Text);
end;
 |
Ответ отправил: DNK (статус: Студент)
Время отправки: 3 октября 2015, 14:40
|
Мини-форум вопроса
Всего сообщений: 8; последнее сообщение — 30 сентября 2015, 08:43; участников в обсуждении: 3.
|
|
DNK (статус: Студент), 27 сентября 2015, 13:29 [#2]:
Зачем две кнопки, когда можно обойтись одной? Я бы даже сказал нужно...
"Digital Networked Knight"
|
|
|
Rina_Frost (статус: Посетитель), 27 сентября 2015, 17:56 [#3]:
Такое условие задачи
Не люблю глупых людей, строящих из себя всезнаек. От этого они выглядят еще глупее.
|
|
|
DNK (статус: Студент), 28 сентября 2015, 10:00 [#4]:
Как второе условие задачи решено?
"Digital Networked Knight"
|
|
|
Rina_Frost (статус: Посетитель), 28 сентября 2015, 18:26 [#5]:
procedure TForm2.btn_ShowClick(Sender: TObject);
begin
Form3.Left := 500;
Form3.Top := 50;
Form3.Height := StrToInt(Edit1.Text);
Form3.Width := StrToInt(Edit2.Text);
Form3.Show;
btn_Size.Enabled := true;
end;
Не люблю глупых людей, строящих из себя всезнаек. От этого они выглядят еще глупее.
|
|
|
DNK (статус: Студент), 28 сентября 2015, 21:50 [#6]:
Ну и почему нельзя сделать так?
procedure TForm2.btn_SizeClick(Sender: TObject);
begin
Form3.Height := StrToInt(Edit1.Text);
Form3.Width := StrToInt(Edit2.Text);
end;
"Digital Networked Knight"
|
|
|
Rina_Frost (статус: Посетитель), 29 сентября 2015, 13:19 [#7]:
DNK: - кнопку «Форма 2», при нажатии на которую открывается вторая форма заданного размера;
Не люблю глупых людей, строящих из себя всезнаек. От этого они выглядят еще глупее.
|
|
|
DNK (статус: Студент), 30 сентября 2015, 08:43 [#8]:
Rina_Frost (статус: Посетитель), понедельник, 18:26 [#5]
"Digital Networked Knight"
|
17 октября 2015, 08:51: Статус вопроса изменён на решённый (изменил модератор DNK)
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
