Прозрачность формы
Прозрачность формы
Прозрачность формы Все очень просто: AlphaBlend:=True; AlphaBlendValue:=100; (от 0 до 255 !!!) Или на АПИ: var old: longint; hwin:HWND; begin hwin:=FindWindow(nil, 'MyForm'); //только это у меня была строчка =) if hwin<>0 then begin old:=GetWindowLongA(hwin,GWL_EXSTYLE) ; SetWindowLongA(hwin,GWL_EXSTYLE,old or $80000); SetLayeredWindowAttributes(hwin, 0, spinedit7.Value , $2); // а это интегер ! значение только от 0 - 255 !!! инача error end; end;
