掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォーム表示位置を任意の場所にするには？ (ID:33899)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
//子フォームを動的に生成して表示したいならこんな感じ procedure TForm1.Button1Click(Sender: TObject); var frm2 :TForm2; Pt :TPoint; Btn :TButton; begin Btn :=Sender as TButton; frm2 :=TForm2.Create(Self); try Pt :=ClientToScreen(Point(Btn.Left, Btn.Top)); frm2.Left :=Pt.X; frm2.Top :=Pt.Y - frm2.Height; frm2.ShowModal; finally FreeAndNil(frm2); end; end; ボタンがスクリーンの上のほうの場合の位置は、 ご自分で調整お願いしますよ。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.