VPF::ScrollBar передвижение объектов - Форум программистов

matrixanton

Дата 16.2.2010, 19:22 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 60
Регистрация: 28.3.2008
Где: Санкт-Петербург

Репутация: нет
Всего: -1

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

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

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

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

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

M
Rrader

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

profesiachuvak

Дата 16.2.2010, 19:34 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 283
Регистрация: 7.11.2009
Где: Беларусь, Минск

Репутация: 1
Всего: 4

Смысл такой:

Код


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

Это сообщение отредактировал(а) profesiachuvak - 16.2.2010, 19:35

--------------------

Закон Мерфи :если есть вероятность того, что какая-нибудь неприятность может случиться, то она обязательно произойдет.

matrixanton

Дата 16.2.2010, 21:15 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 60
Регистрация: 28.3.2008
Где: Санкт-Петербург

Репутация: нет
Всего: -1

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

profesiachuvak

Дата 16.2.2010, 22:48 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 283
Регистрация: 7.11.2009
Где: Беларусь, Минск

Репутация: 1
Всего: 4

Цитата(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;

--------------------

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »