delphi 用API实现 窗体半透明效果

procedure TForm1.Button1Click(Sender: TObject);
var
h: HWND;
FormStyle: Integer;
begin
h := self.Handle;
FormStyle := GetWindowLong(h, GWL_EXSTYLE);
SetWindowLong(h, GWL_EXSTYLE, FormStyle or WS_EX_LAYERED);
SetLayeredWindowAttributes(h, 0, 128, LWA_ALPHA);
end;
procedure TForm1.Button1Click(Sender: TObje