Компонент TrackBar - Компоненты Delphi

aleks8091 · 27.12.2009, 22:20

Всем доброе время суток.. Пожалуста подскажите как "правильно" писать код под этот компонент(TrackBar). Гугл мне предложил множество вариантов но не совсем то.. Задача простая , нужно установить прозрачность на главную форму.. решил задачу -

if TrackBar1.Position=0 then
Form1.AlphaBlendValue := 255;
if TrackBar1.Position = 20 then
Form1.AlphaBlendValue := 240;

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

mihali4 · 27.12.2009, 22:37

Код:

TrackBar1.Max:=255;
Form1.AlphaBlendValue:=255-TrackBar1.Position;

Все.

aleks8091 · 27.12.2009, 22:52

Спасибо большое!

27.12.2009, 22:20	#1
aleks8091 Пользователь Регистрация: 17.12.2009 Сообщений: 14	Компонент TrackBar Всем доброе время суток.. Пожалуста подскажите как "правильно" писать код под этот компонент(TrackBar). Гугл мне предложил множество вариантов но не совсем то.. Задача простая , нужно установить прозрачность на главную форму.. решил задачу - if TrackBar1.Position=0 then Form1.AlphaBlendValue := 255; if TrackBar1.Position = 20 then Form1.AlphaBlendValue := 240; ...и тд.. но код получился громозким, и работает не всегда правильно .. пожалуста подскажите как сделать иначе

27.12.2009, 22:37	#2
mihali4 * Старожил Регистрация: 22.11.2006 Сообщений: 9,201	Код: `TrackBar1.Max:=255; Form1.AlphaBlendValue:=255-TrackBar1.Position;` Все.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
trackbar	larry	Win Api	3	28.07.2009 09:47
trackbar	larry	Win Api	4	25.07.2009 20:59
TrackBar	loozer	Компоненты Delphi	2	20.12.2008 22:50
TrackBar	Михаил Юрьевич	Общие вопросы Delphi	2	29.01.2008 00:43

27.12.2009, 22:52	#3
aleks8091 Пользователь Регистрация: 17.12.2009 Сообщений: 14	Спасибо большое!