Прозрачная форма

[maladoy]

Прозрачность
--------------------------------------------------------------------------------



interface

uses
Windows, Messages, Forms;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
end;

const
WS_EX_LAYERED = $80000;

function SetLayeredWindowAttributes(hWindow : HWND; crKey : DWORD; bAlpha : Byte;
dwFlags : DWORD) : BOOL; stdcall; external user32 name 'SetLayeredWindowAttributes';

var
Form1: TForm1;

implementation
{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_LAYERED);
SetLayeredWindowAttributes(Handle, 0, Byte(196), 2);
end;

end.

...

const
WS_EX_LAYERED = $80000;

type
TSetLayeredWindowAttributes = function(hWnd : HWND; crKey : DWORD;
bAlpha : Byte; dwFlags : DWORD) : BOOL; stdcall;

...

procedure TForm1.FormCreate(Sender: TObject);
var
SetLayeredWindowAttributes : TSetLayeredWindowAttributes;
hUser32 : HINST;
begin
SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_LAYERED);

hUser32 := LoadLibrary('user32.dll');
if hUser32 <> 0 then
begin
try
SetLayeredWindowAttributes := GetProcAddress(hUser32, 'SetLayeredWindowAttributes');
if Assigned(@SetLayeredWindowAttribute s) then
SetLayeredWindowAttributes(Handle, 0, Byte(196), 2);
finally
FreeLibrary(hUser32);
end;
end;
end;






Проект Delphi World © Выпуск 2002 - 2004
Автор проекта: ___Nikolay

[Хамяг]

находил, пробовал. Такого же успеха можно достигнуть, использовав AlphaBliend

[BOBAH13]

Сообщение от Хамяг

находил, пробовал. Такого же успеха можно достигнуть, использовав AlphaBliend

А вы не пытались головой подумать ? Я же говорю уже обсуждалось, я тут разжевывал все, правда для bmp с маской. Но с png еще легче. + на моей странице можно посмотреть проект (в исходниках) Widget Library. Просто если бы вы хотели, а то ждете пока кто-нибудь за вас все сделает. В чем проблема, вы можете сказать? Решение вам было предоставлено.