Перемещение компонента ScrollBar'ом

@Closius · Регистрация: 01.10.2010

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

Здравствуйте.

Есть форма на ней кнопка и слева по всей форме справа (ScrollBar1.Align := alRight). Изначально кнопка наверху формы ( Button1.Top=0 ).

Задача: Сделать так чтобы при опускании скрола вниз кнопка оказывалась внизу формы и соотвественно чтобы при поднятии скрола кнопка наверху оказывалась.

Вроде бы простая задача, но я чето не допру как делать. У меня кнопка на какоето неопределеное расстояние туда сюда ездиет, причем это расстояние каждый раз разное... Помогите плиз..

DenNik · 24.02.2012, 10:49

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    ScrollBar1: TScrollBar;
    Button1: TButton;
    procedure FormResize(Sender: TObject);
    procedure ScrollBar1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormResize(Sender: TObject);
begin
  ScrollBar1.Max:= ClientHeight - Button1.Height;
end;
 
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
  Button1.Top:= ScrollBar1.Position;
end;
 
end.

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

@Closius · 24.02.2012, 15:02 **[ТС]**

DenNik, Большое спасибо! А я пробую через событие onScroll ...

А что такое ClientHeight ??

Этот вопрос у меня наводящий.. Я хочу связать скрол с динамически созданными объектами... Вот уже весь день пытаюсь.. Щас с твоим советом может что прояснится.

DenNik · 24.02.2012, 15:41

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

DenNik, Большое спасибо! А я пробую через событие onScroll ...

А что такое ClientHeight ??

Этот вопрос у меня наводящий.. Я хочу связать скрол с динамически созданными объектами... Вот уже весь день пытаюсь.. Щас с твоим советом может что прояснится.

можно и через ОнСкролл. ClientHeight - это клиентская высоты формы. Я эту строку ввел, чтобы кнопка двигалась строго до нижней границы формы, для этого я меняю максимальное значение скроллбара в зависимости от высоты формы.

@Closius · 24.02.2012, 22:32 **[ТС]**

DenNik, мм понятно..
у меня динамически создаются объекты (внизу один за другим). И вот когда количество этих объектов не влезает в форму, я включаю скрол и он у меня их скролит. Вот когда я добавляю новые элемент у меня се отлично. Максимальное значение правильно приписывается. А вот когда удаляю то херня какаято.. Целый день мучаюсь!! Но думаю ща разберусь.
Кстати ОнСкролл както по другому работает.. Чендж лучше..

Кстати, а как сделать чтоы скрол понимал, то что я колесиком мыши его кручу ??

Добавлено через 1 час 44 минуты
Все понял как...

@Closius 0 / 0 / 0 Регистрация: 01.10.2010 Сообщений: 23
		1
	Перемещение компонента ScrollBar'ом 24.02.2012, 10:41. Показов 3721. Ответов 4 Метки нет (Все метки) Здравствуйте. Есть форма на ней кнопка и слева по всей форме справа (ScrollBar1.Align := alRight). Изначально кнопка наверху формы ( Button1.Top=0 ). Задача: Сделать так чтобы при опускании скрола вниз кнопка оказывалась внизу формы и соотвественно чтобы при поднятии скрола кнопка наверху оказывалась. Вроде бы простая задача, но я чето не допру как делать. У меня кнопка на какоето неопределеное расстояние туда сюда ездиет, причем это расстояние каждый раз разное... Помогите плиз.. 0

@Closius 0 / 0 / 0 Регистрация: 01.10.2010 Сообщений: 23
	24.02.2012, 15:02 [ТС]	3
	DenNik, Большое спасибо! А я пробую через событие onScroll ... А что такое ClientHeight ?? Этот вопрос у меня наводящий.. Я хочу связать скрол с динамически созданными объектами... Вот уже весь день пытаюсь.. Щас с твоим советом может что прояснится. 0

DenNik Житель Земли 3002 / 3004 / 391 Регистрация: 26.07.2011 Сообщений: 11,463 Записей в блоге: 1
	24.02.2012, 15:41	4
	Сообщение от Closius DenNik, Большое спасибо! А я пробую через событие onScroll ... А что такое ClientHeight ?? Этот вопрос у меня наводящий.. Я хочу связать скрол с динамически созданными объектами... Вот уже весь день пытаюсь.. Щас с твоим советом может что прояснится. можно и через ОнСкролл. ClientHeight - это клиентская высоты формы. Я эту строку ввел, чтобы кнопка двигалась строго до нижней границы формы, для этого я меняю максимальное значение скроллбара в зависимости от высоты формы. 0

@Closius 0 / 0 / 0 Регистрация: 01.10.2010 Сообщений: 23
	24.02.2012, 22:32 [ТС]	5
	DenNik, мм понятно.. у меня динамически создаются объекты (внизу один за другим). И вот когда количество этих объектов не влезает в форму, я включаю скрол и он у меня их скролит. Вот когда я добавляю новые элемент у меня се отлично. Максимальное значение правильно приписывается. А вот когда удаляю то херня какаято.. Целый день мучаюсь!! Но думаю ща разберусь. Кстати ОнСкролл както по другому работает.. Чендж лучше.. Кстати, а как сделать чтоы скрол понимал, то что я колесиком мыши его кручу ?? Добавлено через 1 час 44 минуты Все понял как... 0