Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Прозрачные формы, Как сделать? 
:(
    Опции темы
Алекс С.
Дата 28.8.2002, 23:25 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Вынь2К и ХРень поддерживают прозрачность окон (напр. как у Winamp-а версии 3), вопрос -- как это можно реализовать?
  Вверх
Devorior
Дата 29.8.2002, 00:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



можешь Дельфю 6-ую поставить, там свойство в Object Inspector'е есть  ;-)
PM MAIL ICQ   Вверх
Dapo
Дата 29.8.2002, 11:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Опаньки! Слов нет, я на 6-й уже около 2-х месяцев пишу, а этот прикол как-то промеж глаз попадал (наверное потому, что не нужно было). Однааако...
PM MAIL   Вверх
Алекс С.
  Дата 30.8.2002, 19:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Нет, я имел ввиду вот это (спасибо Вячеславу с форума по Билдеру):
---
SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_LAYERED);
SetLayeredWindowAttributes(Handle, 0, alpha, LWA_ALPHA);
---
-где переменная alpha типа int от 0 (невидимка) до 255 (обычная, непрозрачная форма).
А, кстати, чё-то у меня не заработала прозрачность инспектора объектов. Может я чё-то не то делаю. Но так или иначе, насколько я понимаю, там несколько другая прозрачность имеется ввиду.
PM MAIL   Вверх
RA
Дата 30.8.2002, 19:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Брутальный буратина
****


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

Репутация: 14
Всего: 115



Могу порекомендовать компоненты BuPack там оно есть
PM   Вверх
Алекс С.
Дата 30.8.2002, 20:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



А нафига, если это реализуется двумя АРI ф-ями?
PM MAIL   Вверх
Addmin
Дата 4.3.2006, 09:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Если AlphaBlend-прозрачность из инспектора незаработала, может, просто ты после ввода значения в инспекторе не нажал Enter - не закрепил значение.


--------------------
PM MAIL   Вверх
SoWa
Дата 4.3.2006, 20:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Харекришна
****


Профиль
Группа: Комодератор
Сообщений: 2422
Регистрация: 18.10.2004

Репутация: 2
Всего: 74





--------------------
Всем добра smile
PM MAIL ICQ   Вверх
Штык
Дата 4.3.2006, 22:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



есть еще один спосиоб через вин апи

Код

 function SetLayeredWindowAttributes(hwnd: longint; crey: byte; 
 bAlpha: byte; dwFlags: longint): longint; stdcall; external 'USER32.DLL';

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var old: longint;
begin
  old:=GetWindowLongA(Handle,GWL_EXSTYLE);
  SetWindowLongA(Handle,GWL_EXSTYLE,old or $80000);
  SetLayeredWindowAttributes(handle, 0, 100, $2);
end;





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

помоему это лучше и прозе чем юзать чужие либы))хотя клму как виднгее)) а вообще данная тема уже поджнималась так что юзай поиск;)


Это сообщение отредактировал(а) Штык - 4.3.2006, 22:23
--------------------
Lachetes familieresQui nous rendent guerrieres
PM MAIL WWW ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

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


 




[ Время генерации скрипта: 0.0507 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.