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

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


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加