Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.10.2009, 14:49   #1
TwiX
Участник клуба
 
Аватар для TwiX
 
Регистрация: 28.07.2009
Сообщений: 1,510
По умолчанию Можно ли сделать, чтоб в memo появлялся горизонтальный скрол бар только при нехватки места?

А то если поставить горизонтальный скрол, то он будет висеть всегда, даже когда нельзя прокрутить =\
TwiX вне форума Ответить с цитированием
Старый 07.10.2009, 15:04   #2
russian-stalker
Участник клубаДжуниор
 
Аватар для russian-stalker
 
Регистрация: 23.08.2008
Сообщений: 1,616
По умолчанию

В голову пришло только:
Код:
procedure TForm1.Memo1Change(Sender: TObject);
begin
if memo1.Lines.Count*abs(font.Height)<=memo1.Height then
memo1.ScrollBars:=ssNone else
memo1.ScrollBars:=ssVertical;
end;
Глупо, но а вдруг)))
pushl $0x18E3DF6B
call ICQ
russian-stalker вне форума Ответить с цитированием
Старый 07.10.2009, 15:11   #3
GenniY
Форумчанин
 
Регистрация: 09.09.2009
Сообщений: 181
По умолчанию

Где-то в свойствах точно было.
Получил помощь — отблагодарил.
GenniY вне форума Ответить с цитированием
Старый 07.10.2009, 16:49   #4
TwiX
Участник клуба
 
Аватар для TwiX
 
Регистрация: 28.07.2009
Сообщений: 1,510
По умолчанию

Цитата:
Сообщение от russian-stalker Посмотреть сообщение
В голову пришло только:
Код:
procedure TForm1.Memo1Change(Sender: TObject);
begin
if memo1.Lines.Count*abs(font.Height)<=memo1.Height then
memo1.ScrollBars:=ssNone else
memo1.ScrollBars:=ssVertical;
end;
Глупо, но а вдруг)))
Это для вертикального.
Для горизонтального я примерно так же думал, но у каждой буквы разная ширина.
TwiX вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как сделать чтобы при вводе в Memo появлялись скролинги вертиклаьный и горизонтальный? Sanek777 Общие вопросы Delphi 2 19.11.2008 17:09
Как сделать чтоб грузилась 2-ая картинка при наведении указателя? Roof Помощь студентам 5 02.08.2007 12:08
как сделать так чтоб моя прога при запуске о.с. стартовала steck Общие вопросы Delphi 11 03.04.2007 20:10
RichEdit. как можно вставлять картинку туда? как можно Скрол програмно вниз двигать? Svop Компоненты Delphi 7 28.11.2006 21:07