名前 題名 ▼ Mr.XRAYさん > > これって，フォームの BorderStyle が bsSizeable たと発生しないみたいですね． > > bsNone だと見事に発生します． > > フォームの BorderStyle を bsSizeable にして BorderStyle を > CreateParams で設定してみたらどうでしょう ? > こちらでは透過しなくなりました． > 動作確認は Windows 7 U64(SP1) + Delphi 10.1 Berlin Stater です． > > procedure TForm1.CreateParams(var Params: TCreateParams); > begin > inherited CreateParams(Params); > > Params.Style := WS_POPUP; > end; > > 推測ですが，この現象はおそらく Windows Vista で実装された > フレームウィンドウの影響ではないかと思います． > フォームのボーダースタイルの設定の時期，タイミングによって変わるのではと． > GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link