Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > ScrollBar передвижение объектов

Автор: matrixanton 16.2.2010, 19:22

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

Дали задание для лабораторной работы, а в Delphi плохо понимаю пока

Задание:
Создайте программу, в которой при помощи только одного объекта ScrollBar по форме передвигается объект Label, а в объекте Edit отображаются его текущие координаты.
Движение по вертикале или по горизонтали определяется про помощи двух RadioButton

Сделать задание не прошу, просто помогите советом, статейкой или лучше примером как при помощи ScrollBar двигать объекты по форме, и как определить и вывести координаты объекта

Заранее спасибо

M
Rrader

Модератор: Название темы должно отражать ее суть!

Автор: profesiachuvak 16.2.2010, 19:34

Смысл такой:

Код


procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
Label1.Top:=Label1.Top+1;
end;

Автор: matrixanton 16.2.2010, 21:15

Спасибо!
А как-то можно отследить вправо двигается скрол или влево, и в зависимости от этого двигать ввехр/вниз smile

Автор: profesiachuvak 16.2.2010, 22:48

Цитата(matrixanton @ 16.2.2010, 21:15

)

А как-то можно отследить вправо двигается скрол или влево, и в зависимости от этого двигать ввехр/вниз smile

Код


procedure TForm1.ScrollBar1Change(Sender: TObject);
var
Position : integer;
begin
  Position:=ScrollBar1.Position; //текущая позиция скрола
  If position < 0 then Label1.Top:=Label1.Top+1; //вниз 
  If position > 0 then Label1.Top:=Label1.Top-1;// вверх
  If position = 0 then Label1.Top:=Label1.Top;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ScrollBar1.Max:=1000; //границы изменения скрола
ScrollBar1.Min:=-1000; //сюда что хочешь ставь.
end;