Текст с прокруткой

@Zhandarbek · Регистрация: 15.08.2011

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

Всем ПРИВЕТ!
есть проблемка: мне нужно в combobox1 выбрать допустим Англия, а рядом на этой же форме появился текст об Англии, но если текст большой должна быть прокрутка. Помогите пожалуйста!

@anonimus · 15.08.2011, 12:05

кинь на форму ListBox1 по умолчанию поставь видимость false
при клике на combobox отображай его, можешь сделать так

Delphi
1
ListBox1.BorderStyle:=bsNone;

что бы рамки не было.

Почему ListBox а не Memo, у ListBox скрол автоматом ставится

@Zhandarbek · 15.08.2011, 12:10 **[ТС]**

anonimus, спасибо, а куда текст кидать? просто я delphi недавно начал изучать, можно поподробнее с текстом.

@anonimus · 15.08.2011, 12:16

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

а куда текст кидать

ListBox1.Items.Text

@Zhandarbek · 15.08.2011, 13:09 **[ТС]**

Я текст ввожу но он идет в одну строку и не переносится.
еще, если поставить видимость false то listbox не видно при запуске программы.

@Arcor · 15.08.2011, 13:12

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

Я текст ввожу но он идет в одну строку и не переносится.
еще, если поставить видимость false то listbox не видно при запуске программы.

вот глянь - Перенос по строчкам

@Zhandarbek · 15.08.2011, 15:00 **[ТС]**

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

вот глянь - Перенос по строчкам

там ничего не понятно(((
хотелось бы по подробнее

@anonimus · 15.08.2011, 15:18

как вариант

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.Button1Click(Sender: TObject);
var str,s:string;
i:integer;
begin
ListBox1.Items.Clear;
str:='ccccccccccccccccccccccccccccccccccccccccccccccccccccccc';
 for i:=1 to length(str) do begin
  s:=s+str[i];
  if ListBox1.Canvas.TextWidth(s)>=ListBox1.Width-10 then begin
    ListBox1.Items.Add(s);
    s:='';
    end;
 end; //for
ListBox1.Items.Add(s);
end;

@Андрей Борисови · 15.08.2011, 15:31

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

Почему ListBox а не Memo, у ListBox скрол автоматом ставится

А поставить скрол - дело 2-х секунд.
Мемо с автопереносом строк, без рамки и цвета формы - 1 тон. И можно по таймеру прокручивать мемо (просто переходя на др строчку раз в 4-5 секунд).
Смотрица - уумммма!

@anonimus · 15.08.2011, 15:46

Сообщение от Андрей Борисови

А поставить скрол - дело 2-х секунд.

ну эт дело вкуса, просто я подумал ТС не нужен скрол если мало текста.

@Андрей Борисови · 15.08.2011, 16:29

Вот пример
Memo.7z

Упс)
Добавте у мемо прокрутку)

@ZverBlin · 15.08.2011, 18:09

Ещё вопрос когда я жму на button он открывает Panel и чать этой Panel скрывается за кнопкой
как можно Panel на передний фон вынести

@Андрей Борисови · 15.08.2011, 18:09

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

А как сделать чтобы при переносе ставилась '-' ??

Даже не в этом дело... Как сделать так, чтобы соблюлись ВСЕ правила переноса русского языка?
Для этого надо написать процедурку распознавания слогов и много чего еще (вроде массива слов, которые не разделяются..)

@Zhandarbek · 16.08.2011, 19:27 **[ТС]**

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

Delphi
1
ListBox1.Items.Text := 'текст больше 255-ти символов';

он выдает ошибку о превышении кол-ва символов

@Андрей Борисови · 16.08.2011, 20:04

Естественно. Снова делать перенос.
Именно ПО ЭТОМУ я вам и советовал пользоваться Memo.
"скальпель Окама"...

@Zhandarbek · 16.08.2011, 21:18 **[ТС]**

но memo тоже вмещает не очень много

@ZverBlin · 16.08.2011, 21:24

а как в Memo отключить редактор текста и поставить полосу прогрутки как в ListBox

@Zhandarbek · 16.08.2011, 21:29 **[ТС]**

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

а как в Memo отключить редактор текста и поставить полосу прогрутки как в ListBox

в memo в меню properties есть нечто под названием scrollbar вот его вам надо включить

Добавлено через 1 минуту
у меня еще одын вопрос, тока он не совсем по теме:
текст в memo будет вводится при выборе нужного пункта в combobox'е, вот только как изменить шрифт этого текста(например увеличить или же уменьшить)

@Андрей Борисови · 16.08.2011, 21:44

Настройка для вашего Memo:
BorderStyle = bsNone
Font (шрифт) = какой хотите (хоть "по больше")
ReadOnly = true (мемо можно читать, но писать в него не даст. текст можно добавлять только программно)
WordWrap = true (АВТОМАТИЧЕСКИЙ ПЕРЕНОС строк текста
ScrollBars = ssVertical (вертикальный и всегда видимый скроллер

@Zhandarbek · 16.08.2011, 22:01 **[ТС]**

Спасибо большое за помощь всем кто в этом участвовал! решил проблему с длинным текстом с помощью загрузки в memo из текстового файла.
Думаю тему можно закрыть

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@Zhandarbek 3 / 3 / 0 Регистрация: 15.08.2011 Сообщений: 60

	Текст с прокруткой 15.08.2011, 11:58. Показов 6486. Ответов 19 Метки нет (Все метки) Всем ПРИВЕТ! есть проблемка: мне нужно в combobox1 выбрать допустим Англия, а рядом на этой же форме появился текст об Англии, но если текст большой должна быть прокрутка. Помогите пожалуйста! 0

@Zhandarbek 3 / 3 / 0 Регистрация: 15.08.2011 Сообщений: 60
	15.08.2011, 12:10 [ТС]
	anonimus, спасибо, а куда текст кидать? просто я delphi недавно начал изучать, можно поподробнее с текстом. 0

@Zhandarbek 3 / 3 / 0 Регистрация: 15.08.2011 Сообщений: 60
	15.08.2011, 13:09 [ТС]
	Я текст ввожу но он идет в одну строку и не переносится. еще, если поставить видимость false то listbox не видно при запуске программы. 0

@Андрей Борисови 714 / 402 / 33 Регистрация: 04.10.2009 Сообщений: 1,686
	15.08.2011, 16:29
	Вот пример Memo.7z Упс) Добавте у мемо прокрутку) 0

@ZverBlin 1 / 1 / 1 Регистрация: 04.08.2011 Сообщений: 228
	15.08.2011, 18:09
	Ещё вопрос когда я жму на button он открывает Panel и чать этой Panel скрывается за кнопкой как можно Panel на передний фон вынести 0

@Андрей Борисови 714 / 402 / 33 Регистрация: 04.10.2009 Сообщений: 1,686
	16.08.2011, 20:04
	Естественно. Снова делать перенос. Именно ПО ЭТОМУ я вам и советовал пользоваться Memo. "скальпель Окама"... 0

@Zhandarbek 3 / 3 / 0 Регистрация: 15.08.2011 Сообщений: 60
	16.08.2011, 21:18 [ТС]
	но memo тоже вмещает не очень много 0

@ZverBlin 1 / 1 / 1 Регистрация: 04.08.2011 Сообщений: 228
	16.08.2011, 21:24
	а как в Memo отключить редактор текста и поставить полосу прогрутки как в ListBox 0

@Андрей Борисови 714 / 402 / 33 Регистрация: 04.10.2009 Сообщений: 1,686
	16.08.2011, 21:44
	Настройка для вашего Memo: BorderStyle = bsNone Font (шрифт) = какой хотите (хоть "по больше") ReadOnly = true (мемо можно читать, но писать в него не даст. текст можно добавлять только программно) WordWrap = true (АВТОМАТИЧЕСКИЙ ПЕРЕНОС строк текста ScrollBars = ssVertical (вертикальный и всегда видимый скроллер 2

@Zhandarbek 3 / 3 / 0 Регистрация: 15.08.2011 Сообщений: 60
	16.08.2011, 22:01 [ТС]
	Спасибо большое за помощь всем кто в этом участвовал! решил проблему с длинным текстом с помощью загрузки в memo из текстового файла. Думаю тему можно закрыть 0