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

解決

ショコラ  2019-11-04 07:49:05  No: 148361  IP: 192.*.*.*

オンオフがしたい。

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 09:11:27  No: 148362  IP: 192.*.*.*

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

編集 削除