Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];

Вниз

Прозрачные окошки   Найти похожие ветки 

 
Алексей Петухов   (2003-09-05 12:10) [0]

Здравствуйте, мастера.
Подскажите пожалуйста, как сделать формочку слегка прозрачной?


 
y-soft   (2003-09-05 13:34) [1]

В Windows 2000 и выше можно так:

const
WS_EX_LAYERED = $00080000;
LWA_ALPHA = $00000002;
CUR_ALPHA = 224; //Степень непрозрачности (0..255)

procedure TMyForm.FormCreate(Sender: TObject);
type
TSetLayeredWindowAttributes = function (Hwnd: THandle; crKey: COLORREF;
bAlpha: Byte; dwFlags: DWORD): Boolean; stdcall;
var
SLWA : TSetLayeredWindowAttributes;
User32 : THandle;
ExStyle : Longint;
begin
fUsers := TSafeObjList.Create(TUser);
fDefaultUser := nil;
fTryCnt := 3; //!!!
fResult := False;
User32 := GetModuleHandle("User32.dll");
if User32 > 0 then
begin
SLWA := GetProcAddres(User32,"SetLayeredWindowAttributes");
if assigned(SLWA) then
begin
ExStyle := GetWindowLong(Handle, GWL_EXSTYLE);
SetWindowLong(Handle, GWL_EXSTYLE, ExStyle or WS_EX_LAYERED);
SLWA(Handle, 0, CUR_ALPHA, LWA_ALPHA);
WS_EX_LAYERED);
end;
end;
end;


Если хотите большего - прочитайте про функции SetLayeredWindowAttributes и UpdateLayeredWindow


 
y-soft   (2003-09-05 13:43) [2]

Sorry, как-то странно вставилось:))

const
WS_EX_LAYERED = $00080000;
LWA_ALPHA = $00000002;
CUR_ALPHA = 224; //Степень непрозрачности (0..255)


...
procedure TMyForm.FormCreate(Sender: TObject);
type
TSetLayeredWindowAttributes = function (Hwnd: THandle; crKey: COLORREF;
bAlpha: Byte; dwFlags: DWORD): Boolean; stdcall;
var
SLWA : TSetLayeredWindowAttributes;
User32 : THandle;
ExStyle : Longint;
begin
fUsers := TSafeObjList.Create(TUser);
fDefaultUser := nil;
fTryCnt := 3; //!!!
fResult := False;
User32 := GetModuleHandle("User32.dll");
if User32 > 0 then
begin
SLWA := GetProcAddres(User32,"SetLayeredWindowAttributes");
if assigned(SLWA) then
begin
ExStyle := GetWindowLong(Handle, GWL_EXSTYLE);
SetWindowLong(Handle, GWL_EXSTYLE, ExStyle or WS_EX_LAYERED);
SLWA(Handle, 0, CUR_ALPHA, LWA_ALPHA);
end;
end;
end;


 
cult_passwordForgotten   (2003-09-05 18:18) [3]

если Дельфи версии 6 и выше - у формы есть свойство AlphaBlendValue, делающее ее прозрачной, по-иоему, 256 градаций существует.


 
Songoku   (2003-09-07 18:50) [4]

Удалено модератором
Примечание: Offtopic


 
Asteroid   (2003-09-07 21:01) [5]

Для 9х - копирование экрана под формой, копирование самой формы и blend одного на другое. Также есть компонент TGlassy.



Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.033 c
8-41735
Beat
2003-07-14 13:43
2003.11.13
Масштабирование изображений при просмотре (a-la ACDSee)...


3-41007
New user
2003-10-23 18:01
2003.11.13
Array fields in FireBird


14-42046
Zhouck
2003-10-15 13:49
2003.11.13
Помогите вычислить злобного хакера-киддиса


1-41551
Unknown user
2003-10-27 19:43
2003.11.13
Ошибка при работе функций trunc и int.


7-42192
ZioN
2003-08-28 15:13
2003.11.13
Работа с CD-Rom





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский