親コントロールを取得するには？

解決

雪やコンコン 2005-01-23 00:52:32 No: 12820

お世話になります。

コンポーネントの作成でお伺いします。

自作コンポーネントを貼り付けたフォームのサイズ等を
そのコンポーネントユニット内で取得、またはプロパティを変更したいです。
ご教授ねがいます。

りおりお 2005-01-23 06:02:15 No: 12821

親コントロールだとフォームとは限らないよ。Panel だったり、TabSheet だったっり・・・
Owner だとフォームである可能性が高くなります。
自分の Owner をしらべて

if Owner is TForm then
  with TForm(Owner) do
  begin
    Width := 200;
    Height := 130;
  end;

のようなコードになると思います。

雪やコンコン 2005-01-23 19:19:01 No: 12822

りおりお様
ありがとうございます。

うまくいきました。

知らないことやわからないことが、まだ沢山あります。
また何か質問したときはよろしくお願いします。