Изменение ширины картинки на форме через Scrollbar

@jenya211 · Регистрация: 09.06.2010

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

Привет)))

Помогите с задачей...
При помощи Scrollbar'a изменять ширину картинки на форме. При нажатии стрелки влево она растягивается влево, при нажатии направо - растягивается направо.

Заранее благодарю)))

@anonimus · 13.01.2011, 12:05

так?

Delphi

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
 if ScrollBar1.Position<i then  begin
 Image1.Width:=Image1.Width+2;
 Image1.left:=Image1.left-2;
 end  else begin
  Image1.Width:=Image1.Width+2;
 end;
 i:=ScrollBar1.Position;
end;

i глобальная переменная

@jenya211 · 13.01.2011, 12:13 **[ТС]**

Аааа!!! Дружище, спасибоооо!!!

@jenya211 0 / 0 / 1 Регистрация: 09.06.2010 Сообщений: 24
		1
	Изменение ширины картинки на форме через Scrollbar 13.01.2011, 11:42. Показов 4799. Ответов 2 Метки нет (Все метки) Привет))) Помогите с задачей... При помощи Scrollbar'a изменять ширину картинки на форме. При нажатии стрелки влево она растягивается влево, при нажатии направо - растягивается направо. Заранее благодарю))) 0

@jenya211 0 / 0 / 1 Регистрация: 09.06.2010 Сообщений: 24
	13.01.2011, 12:13 [ТС]	3
	Аааа!!! Дружище, спасибоооо!!! 0

Опции темы

Изменение ширины картинки на форме через Scrollbar

Решение