SetLayeredWindowAttributes　で指定した透明フォームのキャンセルの方法は？

解決

ショコラ 2019-11-04 16:49:05 No: 148361

オンオフがしたい。

procedure Trancrate(OnFlg:Boolean);
var
  sColor: TColor;
  attrib: Integer;
  HND: LCLType.HWND;
begin
  if OnFlg then
  begin
    HND:= Form1.Handle;
    Form1.Color:= clPurple;
    sColor:= clPurple;
    attrib := GetWindowLongA(HND, GWL_EXSTYLE);
    SetWindowLongA(HND, GWL_EXSTYLE, attrib Or WS_EX_LAYERED);
    SetLayeredWindowAttributes(HND, sColor, 0, 1);
  end else begin

end;
end;

ショコラ 2019-11-04 18:11:27 No: 148362

自己完結しました。
ありがとうござます。

SetLayeredWindowAttributes で指定した透明フォームのキャンセルの方法は？

SetLayeredWindowAttributes　で指定した透明フォームのキャンセルの方法は？