[X-rem]

Ув. Программисты . Помоги мне сдлеать форму прозрачную

Вообщем есть Form1 , На ней очень много визуальных объектов.
Беда лишь в одном. Форма прозрачная а объекты нет.

Если можно то подкиньте функцию. Что то типа :

Код:

 
function Trans( СилаПрозрачности : byte , КакуюФорму : String );
begin
??????
end;

[zip000]

У формы есть свойства AlphaBlend и AlphaBlendValue (точно не помню, поправьте если что). Первое ставишь True, второе собсно коэффициент прозрачности от 0 до 255. Работает только под Win 2k\XP. Насчет Висты не знаю.

[4kusNick]

Переводил из асма, мог ошибиться:

Код:

var
 pSLWA: Double;
 hHandle: THandle;
begin

 //... тут добавляем к стилю окна WS_EX_LAYERED

  hHandle := GetModuleHandleA('User32.dll');
  pSLWA := GetProcAddress(hHandle,'SetLayeredWindowAttributes');
  asm
        push LMA_ALPHA
        push 240 // это уровень непрозрачности
        push 0
        push hWin
        call pSLWA
  end;

А вот оригинал (MASM), на всяк случай:

Код:

        invoke GetWindowLongA,hWin,GWL_EXSTYLE
        or eax,WS_EX_LAYERED
        invoke SetWindowLongA,hWin,GWL_EXSTYLE,eax
        invoke GetModuleHandleA,ADDR User32
        invoke GetProcAddress,eax,ADDR SLWA
        mov pSLWA,eax
        push LMA_ALPHA
        push 240 
        push 0
        push hWin
        call pSLWA

[X-rem]

Сообщение от 4kusNick

Переводил из асма, мог ошибиться:

Код:

 
var
 pSLWA: Double;
 hHandle: THandle;
begin
 
 //... тут добавляем к стилю окна WS_EX_LAYERED
 
  hHandle := GetModuleHandleA('User32.dll');
  pSLWA := GetProcAddress(hHandle,'SetLayeredWindowAttributes');
  asm
        push LMA_ALPHA
        push 240 // это уровень непрозрачности
        push 0
        push hWin
        call pSLWA
  end;

А вот оригинал (MASM), на всяк случай:

Код:

        invoke GetWindowLongA,hWin,GWL_EXSTYLE
        or eax,WS_EX_LAYERED
        invoke SetWindowLongA,hWin,GWL_EXSTYLE,eax
        invoke GetModuleHandleA,ADDR User32
        invoke GetProcAddress,eax,ADDR SLWA
        mov pSLWA,eax
        push LMA_ALPHA
        push 240 
        push 0
        push hWin
        call pSLWA

А как добавить WS_EX_LAYERED ???

[Keygenmusic]

X-rem
написано же на масме как
мысленно конвертим в делфи:

Код:

SetWindowLong(Form1.Handle,GWL_EXSTYLE,GetWindowLong(Form1.Handle,GWL_EXSTYLE) or WS_EX_LAYERED);

наверное, так

[X-rem]

Спс народ . Проблема решена. zip000 Thanks вери мачь .
Жаль что сразу не использовал его вариант.

[4kusNick]

Сообщение от X-rem

Спс народ . Проблема решена. zip000 Thanks вери мачь : .
Жаль что сразу не использовал его вариант.

Ну не стоит об этом сразу так жалеть, так как все зависит от поставленных целей. Тот вариант конечно более удобный и простой, но он потребует гораздо больше системных ресурсов и добавит больше мусора в программу, т.к. в VCL прозрачность реализована так же криво, как и Application.ProcessMessages...
Как я сказал, все зависит от поставленных задач: еслу нужна скорость работы и маленький размер exe, то лучше искать замену некоторым ф-ям VCL, а если важно скорость разработки и не важен размер программы и объем требуемой оперативной памяти, то можно смело пользоваться VCL...
Это моё мнение, оно может быть ошибочно, но я это утверждаю лишь основываясь на своем опыте...

[X-rem]

Гы , Филосов ))
Лана все тема закрыта