掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Formを判別する方法 (ID:9630)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
> Form1からForm2を表示する際に、Form1の表示位置からOffset分ずらして表示したかったのでした。 Button1Click イベントハンドラは TForm1 のメソッドですから、そのインスタンス を参照するときは self が使えますよ。こんな感じです。 const intOffset: integer = 50; procedure TForm1.Button1Click(Sender: TObject); begin Form2 := TForm2.Create(Application); try with Form2 do begin Position := poDesigned; Top := self.Top + intOffset; Left:= self.Left+ intOffset; ShowModal; end; finally Form2.Free; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.