Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 6 599

Раздел: Delphi » Прочее
/ вопрос решён /

Доброго времени суток, уважаемые эксперты!
Появилась проблема при решении задачи.
Задача:
Написать приложение, состоящее из 2-х форм. На первой расположить:
- два текстовых поля, в которых задаются размеры второй формы;
- кнопку «Форма 2», при нажатии на которую открывается вторая форма заданного размера;
- кнопку «Изменить», при нажатии на которую Форма 2 то увеличивает, то уменьшает размеры до определенных пределов.

Непосредственно трудности возникли при работе с третьим условием задачи. Имеются две готовые формы, с расположенными на них объектами, но не имеется даже примерного представления кода, который бы выполнял третье условие.
При попытке найти готовые задачи и попробовать разобраться с кодом, потерпела неудачу. Так как хотелось бы разобраться с этим самой, то присвоить готовую задачу даже не думала. Хотелось бы знать на будущее, как работать с такими условиями. Пожалуйста, помогите.

Rina_Frost Вопрос решён, но можно продолжить его обсуждение в мини-форуме

Вопрос задала: 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.
min@y™

min@y™ (статус: Доктор наук), 26 сентября 2015, 16:57 [#1]:

http://programmersforum.ru/forumdisplay.php?f=2
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
DNK

DNK (статус: Студент), 27 сентября 2015, 13:29 [#2]:

Зачем две кнопки, когда можно обойтись одной? Я бы даже сказал нужно...
"Digital Networked Knight"
Rina_Frost

Rina_Frost (статус: Посетитель), 27 сентября 2015, 17:56 [#3]:

Такое условие задачи
Не люблю глупых людей, строящих из себя всезнаек. От этого они выглядят еще глупее.
DNK

DNK (статус: Студент), 28 сентября 2015, 10:00 [#4]:

Как второе условие задачи решено?
"Digital Networked Knight"
Rina_Frost

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

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

Rina_Frost (статус: Посетитель), 29 сентября 2015, 13:19 [#7]:

DNK: - кнопку «Форма 2», при нажатии на которую открывается вторая форма заданного размера;
Не люблю глупых людей, строящих из себя всезнаек. От этого они выглядят еще глупее.
DNK

DNK (статус: Студент), 30 сентября 2015, 08:43 [#8]:

Rina_Frost (статус: Посетитель), понедельник, 18:26 [#5]
"Digital Networked Knight"

17 октября 2015, 08:51: Статус вопроса изменён на решённый (изменил модератор DNK)

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 23 июня 2017, 09:47
Выполнено за 0.04 сек.
Рейтинг@Mail.ru