掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォーム表示位置を任意の場所にするには？ (ID：33898)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
簡易コードですが以下でどうでしょうか？？ Form1側 implementation uses Unit2; {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin form2.Show; end; form2側 implementation uses Unit1; {$R *.DFM} procedure TForm2.FormActivate(Sender: TObject); begin if form1.Top < 10 then exit else form2.Top := form1.Top - 20; end; Form2側はOnActivateに書き込みます。 細かい数値はそちら側でも念の為試して下さい。 とりあえずこちら側では問題なく動きました＾＾。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.