掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
canvasで描いた図形の半透明化の方法 (ID:36102)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
フォーム上のcanvasですが、無茶な力技です。 とりあえず、Form上に描いた図形が半透明になった様に見えます。 フォーム上にボタンを置いて以下のようにします。 細かい事は気にしていないので、フォームを移動すると馬脚を現します。 procedure TForm1.Button1Click(Sender: TObject); begin Canvas.Brush.Color := clRed; Canvas.Brush.Style := bsSolid; Canvas.Rectangle(10, 10, 100, 100); TransparentColor := True; TransparentColorValue := clRed; with TForm.Create(Self) do begin Top := Self.Top; Left := Self.Left; Width := Self.Width; Height := Self.Height; AlphaBlend := True; AlphaBlendValue := 128; Show; end; BringWindowToTop(Handle); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.