В общем, у меня такая задача. У моей программы есть плавающее окошко. При на ведении на него курсора необходимо, чтобы  его яркость увеличивалась (как у Download Master'a). Как это сделать, подскажите пожалуйста. Желательно с примером.   P.S. программа написана на Delphi 7. 

Скорее прозрачность уменьшалась! И это работает только в Вин 2000/Хр.

Делается просто:
 

А можно ли чтобы все это делалось плавно? Ну, то есть яркость чтобы увеличивалась плавно. 

Ну, сделай так:
 

Да нет, это тоже не то. Надо чтобы плавно, как у Download Master'а. Допустим, AlphaBlendValue плавающего окошка =155. Нужно чтобы это значание плавно увеличивалось до 255. Я вот думал через таймер, но может как - то попроще можно? 

Поставь sleep(50) 

Ну, и чем, собственно, тебя не устраивает вышеприведенный код? Недостаточно плавно меняется? Что не так? Вот я, например, DM не использую, так что мне просто не известно, "как в Download Master", я показал тебе, как плавно уменьшить прозрачность...
 

Комп выполнит твой код очень быстро. Так что ты увидишь этого "плавного" перехода. Все будет мгновенно! 

Sunvas правильно говорит, это даже не успеваешь заметить. Все же думаю через таймер все сделать. Неужели нельзя сделать попроще? 

Проще уже некуда..



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

Зато конечный результат, рассчитываю, будет неплохим. Выйдет как раз то, что мне нужно. 

на 100% уверен где нибудь на Тории валяется какой-нибудь компонент на эту тему...
если не хочешь париться лишний раз по мелочам заходи туда... или ещё где поищи...

http://torry.net (если не ошибаюсь или ru... не помню) 

Да ну ладно  Таймер - это сложно?   
Ты получишь постепенное, с нужной скоростью, уменьшение прозрачности... Разве это плохо?
P.S. А почему - прозрачность, а не яркость? Конечно, свойства Color у формы и компонентов  - это не совсем RGB код, но вполне можно было бы приближать цвет к белому при наведении, а при потере фокуса - уменьшать до, скажем, тёмно-синего...

Добавлено @ 09:13 
Я осознаю, что яркость != цветность. Но визуально это будет напоминать увеличение яркости. 

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 11:23

А разве procedure TForm1.CMMouseEnter и procedure TForm1.CMMouseLeave не определяют, когда мышка наведена, а когда ее нет на форме?    По идее они и должны управлять увеличением или уменьшением прозрачности. 

jaAlex, но процедура по MouseLeave не начнёт работать, пока не отработает MouseEnter... Потому либо задействовать потоки, либо задействовать изменения по таймеру. А OnMouseEnter и ONMouseLeave только будет определять направление изменения прозрачности(будут менять только одну переменную) 

Я вот об этом и подумал. В общем, думаю сделать так: задействовать изменения по таймеру в таймере увеличения и уменьшения прозрачности. Потому что про потоки знаю только общую теорию, а как работать с ними - не знаю, даже не представляю с чего начинать. Ты вот говорил, что можешь помочь с этим. Накидай пожалуйста мне примерный текст программы, дальше сам разберусь. Или линки на теорию по подобным темам. Очень буду признателен. 

я сам с потоками даже не "на Вы", а на "ой-ай поток... спасите!"  в общем, почти не работал. А вот ссылка.
И поищи в хелпе на "TThread"
 

Спасибо, будем разбираться. Но вот мне на данный момент проще сделать через таймер. А как будет более корректно с точки зрения исполнения? 

jaAlex, я не могу себя назвать специалистом  Да и не думаю, что тут есть "самое" правильное решение. Можно - в таймере, но тогда предусмотри в цикле обработку сообщений Application.ProcessMessages; можно в потоке, но тогда будут проблемы с совместным доступом к визуальным компонентам... Дочитай про потоки и выбирай сам 
 

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

ручное оформление потоков не нужно. просто обрабатывать оба события паралельно (вставлять везде application.proccessmessages), и использовать в обработке обеих процедур какой-нибудь флаг. вместо флага можно mutex'ы и CriticalSection 

Можно поподробнее, желательно с кодом. И что такое mutex'ы? 

Quadr0, какраз тут поток - совершенно лишний
оптимальный вариант использовать таймер.

писал без дельфей но думаю должно жыть нормально 

z-END, данный пример работает, но есть одно НО: когда значение AlphaBlendValue:=255 таймер продолжает прибавлять к  AlphaBlendValue 1 (при procedure TForm1.CMMouseEnter), что вобщем - то неправильно(если мышка находится на плавающем окошке). Мое плавающее окошко начинает мигать. Скоро сяду за Delphi и доведу до ума, времени пока катастрофически не хватает. После все выложу сюда. 

 
Почему? Через потоки тоже можно сделать, но вот я тут прикинул: через таймер будет более оптимально, как ты и сказал.  

зачем? чтобы паралельно добавлять и отнимать к/от AlphaBlendValue одно и тоже число? фихня эти потоки     

Но ведь тоже вариант! 

мдя ну тогда исправь 

на :



потому что потоки используются для выполнения паралельных задач (например математический обсчет, запись гигабайтного файла на диск и визаулизация этих процессов)
при работе с формой из потока необходима синхронизация - которая выполняется в основном потоке приложения, что полностью аналогично работе с таймером, только мароки больше.   

Это сообщение отредактировал(а) z-END - 9.6.2006, 18:34

Не хотел поднимать старую тему, хочу заметить что используя таймер, лучше его не останавливать при достижении MaxAlpha или MinAlpha. Достаточно обнулить DeltaAlpha.