掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォーム表示位置を任意の場所にするには？ (ID:33900)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
自分のはバグバグでしたね＾＾； 訂正すいません！＾＾； アクティブなる度に、フォーム２が動きまわります（笑）。 フォームも少ししか上に出来ないし＾＾； またバグあったらごめんなさい； フォーム１ var Form1: TForm1; sw:boolean=false; implementation uses Unit2; {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin sw:=true; form2.Show; end; フォーム２ OnActivate部分 procedure TForm2.FormActivate(Sender: TObject); begin if sw then begin form2.Top := form1.Top - 40; if form2.Top < 0 then form2.Top := 0; end; sw := false; end; で、取りあえず何とか＾＾； ばりばりの初心者コードですが、 もし使って下さる奇特な方がいましたら是非＾＾；。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.