掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
SetLayeredWindowAttributes で指定した透明フォームのキャンセルの方法は？ (ID:148361)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
オンオフがしたい。 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;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.