Создать справочную систему по компонентам Delphi

@bewbewbew · Регистрация: 22.11.2015

Студворк — интернет-сервис помощи студентам

Доброго времени суток , я первый курс , задача на курсовую работу "создать справочную систему по компонентам делфи" , Опыта мало , прошу помочь, хотя-бы расскажите что к чему.Спасибо

@VladWH · 02.12.2015, 13:43

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

как сделать чтобы кнопка красилась полностью , а не торчал кусок с именем?

можно просто увеличить ширину картинки - то что закрашиваем

Delphi
1
2
3
4
5
6
.................
      Glyph.Width := Width+25;
      Glyph.Height := Height;
      Glyph.Canvas.Brush.Color := ColorDialog1.Color;
      Glyph.Canvas.Rectangle( Rect(0,0,Width+25, Height) );
....................

@bewbewbew · 06.12.2015, 16:12 **[ТС]**

а как написать для одной кнопки допустим "X2" чтобы при нажатии все элементы увеличивали длинну и ширину в 2 раза? Подскажи пожалуйста код

Добавлено через 47 минут
можно сделать так же , как и в наброске , только для моей работы? Я не могу разобраться сам.

@VladWH · 07.12.2015, 03:35

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

как написать для одной кнопки допустим "X2" чтобы при нажатии все элементы увеличивали длинну и ширину в 2 раза?

можно так

Delphi
1
2
3
4
5
6
procedure TForm1.btn11Click(Sender: TObject);
 var I: Integer;
begin // перебираем элементы на панели
 for I:=0 to pnl1.ControlCount-1 do // увеличиваем их ширину в 2 раза
  pnl1.Controls[i].Width := pnl1.Controls[i].Width*2;
end;

@bewbewbew · 12.12.2015, 17:35 **[ТС]**

А можешь сделать так же , как ты мне в наброске делал? только чтобы к моей применить

@VladWH · 12.12.2015, 18:26

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

А можешь сделать так же , как ты мне в наброске делал? только чтобы к моей применить

не понял. Чтобы динамически создавались объекты или что?

@bewbewbew · 12.12.2015, 19:02 **[ТС]**

вводить ширину и высоту , в отдельных полях .
Мне осталось изменять текст внутри компонента , и сохранять изменения в файле. Если что-то сможете помочь , буду очень благодарен!

@VladWH · 12.12.2015, 21:03

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

вводить ширину и высоту , в отдельных полях

добавьте поля для ввода ширины и высоты. А код у вас уже есть. В чем проблема?

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

Мне осталось изменять текст внутри компонента

меняйте свойство Caption или Text в зависимости от компонента

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

и сохранять изменения в файле.

вот тут не понял - нужно компоненты в файл сохранять или что?

@bewbewbew · 12.12.2015, 22:28 **[ТС]**

Вот изменил размер , текст , и потом , в отдельный файл это должно сохраниться

Добавлено через 13 минут

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

добавьте поля для ввода ширины и высоты. А код у вас уже есть. В чем проблема?

добавил , а как их связать

Добавлено через 30 секунд
вы уж простите за мою глупость , просто учат мало , а требуют всё.

@VladWH · 13.12.2015, 00:25

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

добавил , а как их связать

вот же код где увеличиваем ширину в два раза, просто надо было изменить на установку значения из поля.

Delphi
1
2
3
4
5
6
procedure TForm1.btn11Click(Sender: TObject);
 var I: Integer;
begin // перебираем элементы на панели
 for I:=0 to pnl1.ControlCount-1 do // устанавливаем ширину указанную пользователем
  pnl1.Controls[i].Width := StrToInt( ПолеДляВводаШирины.Text );
end;

Аналогично с высотой.

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

изменил размер , текст , и потом , в отдельный файл это должно сохраниться

можно, например, записать значения в INI-файл

@bewbewbew · 13.12.2015, 01:50 **[ТС]**

а как? И как потом загружать из этого файла?

Добавлено через 1 час 21 минуту
и как сделать , чтобы в эдитах изначально отображалась высота и ширина кнопки

@VladWH · 13.12.2015, 06:19

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

а как? И как потом загружать из этого файла?

по работе с INI-файлами примеров и объяснений очень много. На форуме есть поиск, воспользуйтесь им. Если что то будет не понятно, то показывайте как пробовали и что не получается.

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

как сделать , чтобы в эдитах изначально отображалась высота и ширина кнопки

Ввести значения в Object Inspector'e.

@bewbewbew · 13.12.2015, 16:39 **[ТС]**

так все объекты же разных размеров, и если вводишь 0 , или очищаешь поле , то прога ломается

Добавлено через 4 часа 22 минуты
вот стираю все , и она вылетает , как это исправить?

@VladWH · 13.12.2015, 21:22

bewbewbew, прикрепите проект еще раз, чтобы можно было код увидеть.

@bewbewbew · 13.12.2015, 21:57 **[ТС]**

Kurs.rar вот

@bewbewbew · 13.12.2015, 21:58 **[ТС]**

Там если удаляешь все из поля высоты-ширины , прога критует

@VladWH · 13.12.2015, 22:12

bewbewbew, прикрепите проект еще раз, чтобы можно было код увидеть.

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

Там если удаляешь все из поля высоты-ширины , прога критует

самый простой вариант это так

Delphi
1
2
3
 
// если не удалось получить значение то устанавливаем 21
pnl1.Controls[i].Height := StrToIntDef( edt3.Text, 21 );

Добавлено через 1 минуту
или просто оставлять то значение которое сейчас у контрола

Delphi
1
pnl1.Controls[i].Height := StrToIntDef( edt3.Text, pnl1.Controls[i].Height );

@bewbewbew · 13.12.2015, 22:58 **[ТС]**

а как записи вставлять ? так же как и размер?

Добавлено через 13 минут
можешь полный код для эдита высоты?

@VladWH · 13.12.2015, 23:05

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

а как записи вставлять ? так же как и размер?

почти... у некоторые компонентов( например кнопка, надпись ) надо будет свойство Caption менять, а у некоторых( например Edit, Memo ) надо будет свойство Text менять.

Добавлено через 55 секунд

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

можешь полный код для эдита высоты?

там всего две строчки в первой ничего не меняется, вторую я показал

@bewbewbew · 14.12.2015, 17:06 **[ТС]**

с координатами запара , сказали что нужно , чтобы они останавливались на том месте , где остановили компонент, какой код нужен для этого?

@bewbewbew · 20.12.2015, 16:07 **[ТС]**

С названием не получается через Caption

Новые блоги и статьи Все статьи Все блоги /
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .

@bewbewbew 2 / 2 / 0 Регистрация: 22.11.2015 Сообщений: 45

	Создать справочную систему по компонентам Delphi 22.11.2015, 20:25. Показов 4174. Ответов 60 Метки нет (Все метки) Доброго времени суток , я первый курс , задача на курсовую работу "создать справочную систему по компонентам делфи" , Опыта мало , прошу помочь, хотя-бы расскажите что к чему.Спасибо 0

@bewbewbew 2 / 2 / 0 Регистрация: 22.11.2015 Сообщений: 45
	06.12.2015, 16:12 [ТС]
	а как написать для одной кнопки допустим "X2" чтобы при нажатии все элементы увеличивали длинну и ширину в 2 раза? Подскажи пожалуйста код Добавлено через 47 минут можно сделать так же , как и в наброске , только для моей работы? Я не могу разобраться сам. 0

@bewbewbew 2 / 2 / 0 Регистрация: 22.11.2015 Сообщений: 45
	12.12.2015, 17:35 [ТС]
	А можешь сделать так же , как ты мне в наброске делал? только чтобы к моей применить 0

@bewbewbew 2 / 2 / 0 Регистрация: 22.11.2015 Сообщений: 45
	12.12.2015, 19:02 [ТС]
	вводить ширину и высоту , в отдельных полях . Мне осталось изменять текст внутри компонента , и сохранять изменения в файле. Если что-то сможете помочь , буду очень благодарен! 0

@bewbewbew 2 / 2 / 0 Регистрация: 22.11.2015 Сообщений: 45
	13.12.2015, 01:50 [ТС]
	а как? И как потом загружать из этого файла? Добавлено через 1 час 21 минуту и как сделать , чтобы в эдитах изначально отображалась высота и ширина кнопки 0

@bewbewbew 2 / 2 / 0 Регистрация: 22.11.2015 Сообщений: 45
	13.12.2015, 16:39 [ТС]
	так все объекты же разных размеров, и если вводишь 0 , или очищаешь поле , то прога ломается Добавлено через 4 часа 22 минуты вот стираю все , и она вылетает , как это исправить? 0

@VladWH 243 / 193 / 94 Регистрация: 01.05.2015 Сообщений: 732
	13.12.2015, 21:22
	bewbewbew, прикрепите проект еще раз, чтобы можно было код увидеть. 0

@bewbewbew 2 / 2 / 0 Регистрация: 22.11.2015 Сообщений: 45
	13.12.2015, 21:57 [ТС]
	Kurs.rar вот 0

@bewbewbew 2 / 2 / 0 Регистрация: 22.11.2015 Сообщений: 45
	13.12.2015, 21:58 [ТС]
	Там если удаляешь все из поля высоты-ширины , прога критует 0

@bewbewbew 2 / 2 / 0 Регистрация: 22.11.2015 Сообщений: 45
	13.12.2015, 22:58 [ТС]
	а как записи вставлять ? так же как и размер? Добавлено через 13 минут можешь полный код для эдита высоты? 0

@bewbewbew 2 / 2 / 0 Регистрация: 22.11.2015 Сообщений: 45
	14.12.2015, 17:06 [ТС]
	с координатами запара , сказали что нужно , чтобы они останавливались на том месте , где остановили компонент, какой код нужен для этого? 0

@bewbewbew 2 / 2 / 0 Регистрация: 22.11.2015 Сообщений: 45
	20.12.2015, 16:07 [ТС]
	С названием не получается через Caption 0