喫茶XRAYトップページ

[スレッド全体]
[10787] Re6:最近起きた珍現象返信　削除
2017/2/10 (金) 20:32:02 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 で実装された
フレームウィンドウの影響ではないかと思います．
フォームのボーダースタイルの設定の時期，タイミングによって変わるのではと．


[10788] Re7:最近起きた珍現象返信　削除
2017/2/10 (金) 20:48:39 Mr.XRAY
> フォームの BorderStyle を bsSizeable にして BorderStyle を
> CreateParams で設定してみたらどうでしょう ?

最初のコードのまま実行すると，以下の図のようになります．


[10789] Re8:最近起きた珍現象返信　削除
2017/2/10 (金) 21:05:39 Mr.XRAY
ちなみに，フォームの枠のデザインの設定の参考です．

[18_実行時にフォームのスタイルを変更  -  フレーム枠のないウィンドウ ]
http://mrxray.on.coocan.jp/Delphi/plSamples/127_FormSystemMenuETC.htm#18

[10790] Re8:最近起きた珍現象返信　削除
2017/2/10 (金) 21:15:14 Konnoya
▼ Mr.XRAYさん
> > フォームの BorderStyle を bsSizeable にして BorderStyle を
> > CreateParams で設定してみたらどうでしょう ?
>
> 最初のコードのまま実行すると，以下の図のようになります．

おお〜その様な方法で回避できると…。
あんなに頭を抱えていたのにもう解決策を見出すとは、さすがXRAY様ですね。
まるで曇り空で頭痛に見舞われ、ナ○ンエースを飲んだ後の様な爽快感が^^

Form.BorderStyle が bsNone の時だけ起こるレアなケースですが、
一応、今後は自作クラスでTPanelを継承して作っているカスタムクラスのチェックも
やろうかなと思っています。
TPanelは何かと便利なんですよ^^;

有難う御座いました。
[10791] Re9:最近起きた珍現象返信　削除
2017/2/10 (金) 21:24:15 Mr.XRAY
▼ Konnoyaさん

> あんなに頭を抱えていたのにもう解決策を見出すとは、さすがXRAY様ですね。

どうだ !! 参ったか，なんちゃって...  ホホホッ
これだけの特急記事だと，
サンプルプログラム集の記事だったら，誤字脱字だらけですね．ハハハッ

> TPanelは何かと便利なんですよ^^;

御意 !! TPanel はやたら使いますからね．

ところで東京地方のみなさん．
午後 10 時から NHK E テレでモーガンフリーマンやります．
えっ ? そんなの興味ない ? あっそう...

http://www4.nhk.or.jp/P3452/
[▼次のスレッド]
INCM/CMT
Cyclamen v3.82