Перемещение кнопок Scrollbar-ом

@artem_0108 · Регистрация: 30.03.2015

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

Привет, программисты. У меня к вам такой вопрос: "Как сделать так, чтобы при перемещении ползунка Scrollbarа вниз ( Kind - Vertical ), кнопки перемещались вверх, а не вниз? Заранее спасибо, вроде бы мой вопрос понятен.

~~Verevkin~~ · 30.03.2015, 12:57

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

Заранее спасибо, вроде бы мой вопрос понятен.

дай скриншот.

@artem_0108 · 30.03.2015, 20:51 **[ТС]**

Delphi

procedure TForm328.ScrollBar1Change(Sender: TObject);
begin
Label7.Top:= (ScrollBar1.Position mod 224) +0;
Label8.Top:= ((ScrollBar1.Position + 48) mod 272) +0;
Label9.Top:= ((ScrollBar1.Position + 80) mod 304) +0;
Label10.Top:= ((ScrollBar1.Position + 128) mod 352) +0;
Label11.Top:= ((ScrollBar1.Position + 176) mod 400) +0;
Label12.Top:= ((ScrollBar1.Position + 224) mod 448) +0;
Label13.Top:= ((ScrollBar1.Position + 256) mod 480) +0;
Label14.Top:= ((ScrollBar1.Position + 304) mod 528) +0;
Label15.Top:= ((ScrollBar1.Position + 336) mod 560) +0;
Label16.Top:= ((ScrollBar1.Position + 368) mod 592) +0;
Label17.Top:= ((ScrollBar1.Position + 416) mod 640) +0;
Label18.Top:= ((ScrollBar1.Position + 464) mod 688) +0;
Label19.Top:= ((ScrollBar1.Position + 512) mod 736) +0;
Label20.Top:= ((ScrollBar1.Position + 544) mod 768) +0;
Label21.Top:= ((ScrollBar1.Position + 592) mod 816) +0;
Label22.Top:= ((ScrollBar1.Position + 624) mod 848) +0;
Label22.Top:= ((ScrollBar1.Position + 656) mod 880) +0;
end;

Вот такой код, только здесь scrollbar, при опускании его вниз, Label тоже опускается, а должен подниматься.

~~Verevkin~~ · 30.03.2015, 20:59

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

Вот такой код

Мама, роди меня обратно!
ТС, у тебя в роду индусы были?
На скроллбокс все лэйблы положить попробуй для начала.

@artem_0108 · 30.03.2015, 21:05 **[ТС]**

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

~~Verevkin~~ · 30.03.2015, 21:20

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

А подсказать можешь как это сделать?

Как положить мышой компонент на форму?
Слышь, выплюнь уже мамкину сиську изо рта. Ты издеваешься штоль?

@NIKOLAYY · 30.03.2015, 21:30

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

procedure TForm328.ScrollBar1Change(Sender: TObject);

А у тебя сколько форм в проэкте?

TForm328.ScrollBar1Change //.....................

@artem_0108 · 30.03.2015, 21:37 **[ТС]**

331. Мне нужно разобраться сначала с этой.

~~Verevkin~~ · 30.03.2015, 21:41

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

331.

Первоапрельский шутник, блин!

@Sigin · 30.03.2015, 21:46

Представляю сколько это чудо хавает оперативки... Они же все статические...

@artem_0108 · 30.03.2015, 22:09 **[ТС]**

Не много. EXEшник занимает всего лишь 199 MB.

~~Verevkin~~ · 30.03.2015, 22:34

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

Не много. EXEшник занимает всего лишь 199 MB.

У меня дистрибутив Delphi 7 (саморасжимающийся 7z-архивчик) 129 Мб весит. Почти лицензионный, кстати.

Не по теме:

Как-то N лет назад принесли мне на работу дистрибутив Nero 9 размером в пол-гига. Когда я при установке потратил минут 5, чтобы отрубить весь порожняк, то спросил чела, притащившего этот мегапродукт: Саня, а эта аццкая вундервафля ещё и диски может записывать?

@NIKOLAYY · 31.03.2015, 00:16

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

"Как сделать так, чтобы при перемещении ползунка Scrollbarа вниз ( Kind - Vertical ), кнопки перемещались вверх, а не вниз?

На ScrollBox ложи тебе сказали уже, на вкладке Additional он, вместится все, нормально будет.

@artem_0108 · 31.03.2015, 15:24 **[ТС]**

Спасибо, все работает, все отлично.

~~Verevkin~~ · 31.03.2015, 15:42

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

Спасибо, все работает, все отлично.

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

DenNik · 31.03.2015, 16:17

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

чтобы ... кнопки перемещались вверх, а не вниз?

а поменять плюс на минус мысля не посещала?

@artem_0108 · 31.03.2015, 22:45 **[ТС]**

А мне [cat], я же для себя.

Комментарий модератора

Мат запрещен правилами форума.

@artem_0108 0 / 0 / 0 Регистрация: 30.03.2015 Сообщений: 131
		1
	Перемещение кнопок Scrollbar-ом 30.03.2015, 11:37. Показов 2014. Ответов 16 Метки нет (Все метки) Привет, программисты. У меня к вам такой вопрос: "Как сделать так, чтобы при перемещении ползунка Scrollbarа вниз ( Kind - Vertical ), кнопки перемещались вверх, а не вниз? Заранее спасибо, вроде бы мой вопрос понятен. 0

~~Verevkin~~ Заблокирован
	30.03.2015, 12:57	2
	Сообщение от artem_0108 Заранее спасибо, вроде бы мой вопрос понятен. дай скриншот. 0

~~Verevkin~~ Заблокирован
	30.03.2015, 20:59	4
	Сообщение от artem_0108 Вот такой код Мама, роди меня обратно! ТС, у тебя в роду индусы были? На скроллбокс все лэйблы положить попробуй для начала. 0

@artem_0108 0 / 0 / 0 Регистрация: 30.03.2015 Сообщений: 131
	30.03.2015, 21:05 [ТС]	5
	Ну ты сразу понял, что я программист ни к черту. А подсказать можешь как это сделать? Если не трудно тебе. 0

~~Verevkin~~ Заблокирован
	30.03.2015, 21:20	6
	Сообщение от artem_0108 А подсказать можешь как это сделать? Как положить мышой компонент на форму? Слышь, выплюнь уже мамкину сиську изо рта. Ты издеваешься штоль? 0

@NIKOLAYY 843 / 738 / 342 Регистрация: 22.09.2012 Сообщений: 5,034
	30.03.2015, 21:30	7
	Сообщение от artem_0108 procedure TForm328.ScrollBar1Change(Sender: TObject); А у тебя сколько форм в проэкте? TForm328.ScrollBar1Change //..................... 0

@artem_0108 0 / 0 / 0 Регистрация: 30.03.2015 Сообщений: 131
	30.03.2015, 21:37 [ТС]	8
	331. Мне нужно разобраться сначала с этой. Миниатюры 0

~~Verevkin~~ Заблокирован
	30.03.2015, 21:41	9
	Сообщение от artem_0108 331. Первоапрельский шутник, блин! 0

@Sigin 226 / 225 / 112 Регистрация: 20.10.2013 Сообщений: 808
	30.03.2015, 21:46	10
	Представляю сколько это чудо хавает оперативки... Они же все статические... 0

@artem_0108 0 / 0 / 0 Регистрация: 30.03.2015 Сообщений: 131
	30.03.2015, 22:09 [ТС]	11
	Не много. EXEшник занимает всего лишь 199 MB. 0

	31.03.2015, 22:45

~~Verevkin~~ Заблокирован
	30.03.2015, 22:34	12
	Сообщение от artem_0108 Не много. EXEшник занимает всего лишь 199 MB. У меня дистрибутив Delphi 7 (саморасжимающийся 7z-архивчик) 129 Мб весит. Почти лицензионный, кстати. Не по теме: Как-то N лет назад принесли мне на работу дистрибутив Nero 9 размером в пол-гига. Когда я при установке потратил минут 5, чтобы отрубить весь порожняк, то спросил чела, притащившего этот мегапродукт: Саня, а эта аццкая вундервафля ещё и диски может записывать? 0

@NIKOLAYY 843 / 738 / 342 Регистрация: 22.09.2012 Сообщений: 5,034
	31.03.2015, 00:16	13
	Сообщение было отмечено artem_0108 как решение Решение Сообщение от artem_0108 "Как сделать так, чтобы при перемещении ползунка Scrollbarа вниз ( Kind - Vertical ), кнопки перемещались вверх, а не вниз? На ScrollBox ложи тебе сказали уже, на вкладке Additional он, вместится все, нормально будет. Миниатюры 1

@artem_0108 0 / 0 / 0 Регистрация: 30.03.2015 Сообщений: 131
	31.03.2015, 15:24 [ТС]	14
	Спасибо, все работает, все отлично. 0

~~Verevkin~~ Заблокирован
	31.03.2015, 15:42	15
	Сообщение от artem_0108 Спасибо, все работает, все отлично. Поздравляю вас, коллеги, мы только что поучаствовали в рождении очередного корзинного монстра! Предлагаю всем по пиву. 0

DenNik Житель Земли 3002 / 3004 / 391 Регистрация: 26.07.2011 Сообщений: 11,463 Записей в блоге: 1
	31.03.2015, 16:17	16
	Сообщение от artem_0108 чтобы ... кнопки перемещались вверх, а не вниз? а поменять плюс на минус мысля не посещала? 0

Перемещение кнопок Scrollbar-ом

Решение