прозрачность форм в делфи - Общие вопросы Delphi

Илюха · 04.11.2007, 18:43

Превед всем! Знаю-знаю тема о прозрачностях форм недавно рассматривалась. Но на теме которую создал AidarBik ему нужно было что бы прозрачными ставали формы Windows, а мне нужно что бы прозрачной ставала форма моя,созданая в делфи. Например Form1

Жду от Вас предложений

GAGARIN-NEW · 04.11.2007, 18:53

procedure TForm1.Button1Click(Sender: TObject);
var
old: longint;
begin
old:=GetWindowLongA(handle,GWL_EXST YLE) ;
SetWindowLongA(handle,GWL_EXSTYLE,o ld or $80000);
SetLayeredWindowAttributes(handle, 0, 'тут значение от 0 -255!!!', $2);
end;

AlDelta · 04.11.2007, 18:56

В теме того же AidarBik'a смотри пост №3, это то, что тебе нужно:
http://programmersforum.ru/showthread.php?t=8573

Димарик · 05.11.2007, 06:43

так же можно использовать AlphaBlend
со значением от 0 - 255.
AlphaBlend:=True;
AlphaBlendValue:=100;

04.11.2007, 18:43	#1
Илюха Заблокирован Регистрация: 29.09.2007 Сообщений: 106	прозрачность форм в делфи Превед всем! Знаю-знаю тема о прозрачностях форм недавно рассматривалась. Но на теме которую создал AidarBik ему нужно было что бы прозрачными ставали формы Windows, а мне нужно что бы прозрачной ставала форма моя,созданая в делфи. Например Form1 Жду от Вас предложений

04.11.2007, 18:53	#2
GAGARIN-NEW Познаю мир Форумчанин Подтвердите свой е-майл Регистрация: 05.10.2007 Сообщений: 387	procedure TForm1.Button1Click(Sender: TObject); var old: longint; begin old:=GetWindowLongA(handle,GWL_EXST YLE) ; SetWindowLongA(handle,GWL_EXSTYLE,o ld or $80000); SetLayeredWindowAttributes(handle, 0, 'тут значение от 0 -255!!!', $2); end; --- Последний раз редактировалось GAGARIN-NEW; 04.11.2007 в 19:17.

04.11.2007, 18:56	#3
AlDelta Реанимируюсь... Участник клуба Регистрация: 19.07.2007 Сообщений: 1,445	В теме того же AidarBik'a смотри пост №3, это то, что тебе нужно: http://programmersforum.ru/showthread.php?t=8573 Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живёте. Правила форума => Правила раздела => Для общего развития => Помощь студентам => Перед тем, как создавать тему, скачайте себе... P.S.: форум не песочница (с) название статьи на сайте MS: "Отмена принудительного отключения автоматического запуска в реестре Windows"

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
прозрачность	sergei64_89	Общие вопросы .NET	1	29.07.2008 21:43
Прозрачность текста и форм.	Лубышев	Помощь студентам	5	25.10.2007 18:06
Прозрачность	ЧИЖ	HTML и CSS	5	24.10.2007 17:18
Окна форм в делфи	Prisian	Общие вопросы Delphi	3	20.10.2007 16:50
Прозрачность	MAcK	Общие вопросы Delphi	2	21.03.2007 19:24

05.11.2007, 06:43	#4
Димарик Пользователь Регистрация: 15.06.2007 Сообщений: 40	так же можно использовать AlphaBlend со значением от 0 - 255. AlphaBlend:=True; AlphaBlendValue:=100;