掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Formを判別する方法 (ID：9629)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
jokさん、ありがとうございます。 教えていただいたサンプルソースで、Formの名前を取得できる事は確認できました。 実際にやりたかった事は、Form1からForm2を表示する際に、Form1の表示位置からOffset分ずらして表示したかったのでした。 const intOffset: integer = 20; procedure TForm1.Button1Click(Sender: TObject); begin //ShowMessage((Sender as TButton).Owner.Name); <-確認済み Form2 := TForm2.Create(Self); try with Form2 do begin Position := poDesigned; Top := TForm((Sender as TButton).Owner).Top + intOffset; Left:= TForm((Sender as TButton).Owner).Left+ intOffset; ShowModal; end; finally Form2.Free; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.