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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 17.03.2016, 20:48   #1
Janger
Форумчанин
 
Регистрация: 28.09.2011
Сообщений: 250
По умолчанию VertScrollBar на форме

в общем следующая задача.
Если на форме имеется скролл, тогда Image надо поднять вверх.
А если скролла нету, тогда Image оставить на прежнем месте...
Вот какой код я использую:
Код:
  if VertScrollBar.Visible then
  begin
    Image1.Top := 50;
  end
  else
  begin
    Image1.Top := 500;    
  end;
Но проблема в том, что Image1 всегда ставить Top равным 50 ...
Даже если нету вертикального скролла ...
В общем, подскажите как решить эту проблему?
Спасибо
Janger вне форума Ответить с цитированием
Старый 17.03.2016, 21:05   #2
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,629
По умолчанию

Цитата:
подскажите как решить эту проблему?
расскажи сначала, где и зачем ты нашёл себе эту проблему?
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 17.03.2016, 21:18   #3
Janger
Форумчанин
 
Регистрация: 28.09.2011
Сообщений: 250
По умолчанию

Цитата:
Сообщение от min@y™ Посмотреть сообщение
расскажи сначала, где и зачем ты нашёл себе эту проблему?
Ты наверняка в курсе, что у программистов случаются такие ситуации, когда разрешения монитора, весьма мало, для программы.

Вот под такую ситуацию, я бы и хотел оптимизировать свою программу.

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

p.s. рассказал, а теперь, поделись граалем
Janger вне форума Ответить с цитированием
Старый 17.03.2016, 21:25   #4
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,629
По умолчанию

Цитата:
Ты наверняка в курсе, что у программистов случаются такие ситуации, когда разрешения монитора, весьма мало, для программы.
Скролл компонентов на форме (за редким усключением) - признак того, что программа - УГ и её надо переделать.

Покажи скриншот проблемы.

Цитата:
Image1 всегда ставить Top равным 50
Ты понимаешь, почему?
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 17.03.2016, 21:36   #5
Janger
Форумчанин
 
Регистрация: 28.09.2011
Сообщений: 250
По умолчанию

Цитата:
Сообщение от min@y™ Посмотреть сообщение
Скролл компонентов на форме (за редким усключением) - признак того, что программа - УГ и её надо переделать.
Вот тут, я бы попросил с моими тараканами в голове не спорить, и принять всё как есть

Цитата:
Сообщение от min@y™ Посмотреть сообщение
Покажи скриншот проблемы.
Тут моё тело не особо осознаёт, что тебе даст скриншот с пустой формой и одной картинкой в ней ...

Цитата:
Сообщение от min@y™ Посмотреть сообщение
Ты понимаешь, почему?
Надеюсь мы мне не скажешь :
"Это потому что у тебя установлен AutoScroll := True, на форме, и из-за этого VertScrollBar.Visible всегда будет равен True"
Janger вне форума Ответить с цитированием
Старый 17.03.2016, 21:43   #6
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,629
По умолчанию

Цитата:
я бы попросил с моими тараканами в голове не спорить, и принять всё как есть
Согласен. Дальше не читал. Пойду на ютуб, посмотрю чонить на сон грядущий.
Давай сайонара.
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 17.03.2016, 21:47   #7
Janger
Форумчанин
 
Регистрация: 28.09.2011
Сообщений: 250
По умолчанию

Вот ведь брешит
Прочёл до конца. Ладно, понимаю, харизма прёт)
----------
Просто, вопрос, мне нужно решить проблему,
а не выслушивать что вы можете придумать по этому поводу.
Либо помогите с кодом,
либо не мозольте глаза.
----------
Janger вне форума Ответить с цитированием
Старый 17.03.2016, 22:20   #8
kropotkina-alice
Форумчанин
 
Аватар для kropotkina-alice
 
Регистрация: 27.10.2014
Сообщений: 594
По умолчанию

Почитайте эту тему про масштабирование форм:
http://www.programmersforum.ru/showthread.php?t=280147
и те, которые там внизу в похожих темах...
kropotkina-alice вне форума Ответить с цитированием
Старый 17.03.2016, 23:41   #9
Janger
Форумчанин
 
Регистрация: 28.09.2011
Сообщений: 250
По умолчанию

Код:
procedure TForm1.ScrollShow;
var
  si: TScrollInfo;
begin
  if GetScrollInfo(Handle, SB_VERT, si) then Label22.Caption := 'Scroll имеется'
  else Label22.Caption := 'Scroll отсутствует';
end;
Всё, вот так работает.

p.s. мне вот эта ссылочка помогла --> Тут

Последний раз редактировалось Janger; 17.03.2016 в 23:48.
Janger вне форума Ответить с цитированием
Старый 18.03.2016, 00:44   #10
northener
ПШП
Участник клуба
 
Регистрация: 15.07.2013
Сообщений: 1,926
По умолчанию

Цитата:
Сообщение от min@y™ Посмотреть сообщение
Скролл компонентов на форме (за редким усключением) - признак того, что программа - УГ и её надо переделать.

Покажи скриншот проблемы.


Ты понимаешь, почему?
Тут есть одна тонкость и вместе с ней и реальная проблема. Трудно разрабатывать приложение с размером формы большим чем разрешение экрана на том компьютере, где программа разрабатывается.
northener вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Классы с# на форме Maledict Помощь студентам 2 08.01.2014 00:22
Splitter & VertScrollBar. Перетаскивание за пределы формы. HIC Общие вопросы Delphi 2 31.08.2010 14:58
Лист на форме cskcsk Microsoft Office Excel 6 18.01.2010 06:58
Таблица в форме Vorron21 Microsoft Office Excel 3 04.01.2010 23:00
беда на форме lamerk Microsoft Office Access 2 29.11.2009 18:28