掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォームのサイズを変更するには？ (ID:19498)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
目的は、フォーム上にマウスカーソルが移動するとフォームのサイズを 大きくし、フォーム外にマウスカーソルが移動するとフォームのサイズを 元に戻すようにしたいのです。 以下のようにしてみたのですが、まったく動作しません。 条件判断をなくしてみると、動作したりしなかったりまた、 フォーム上の他のコンポーネント等を移動させると メニューが大きくなったり小さくなったりと表示されるため フラッシュ状態？になります。 どうすればよいのでしょうか? type TForm1 = class(TForm) ： private ： procedure CMMouseEnter(var Msg: TMessage); message CM_MOUSEENTER; procedure CMMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE; ： end; procedure TForm1.CMMouseEnter(var Msg: TMessage); begin if TComponent(Msg.LParam) = Form1 then begin Width := 500; Height := 500; end; end; procedure TForm1.CMMouseLeave(var Msg: TMessage); begin if TComponent(Msg.LParam) = Form1 then begin Width := 100; Height := 100; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.