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

解決

雪やコンコン 2005-01-23 00:52:32 No: 12820 IP: [192.*.*.*]

お世話になります。

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

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

編集削除

りおりお 2005-01-23 06:02:15 No: 12821 IP: [192.*.*.*]

親コントロールだとフォームとは限らないよ。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 IP: [192.*.*.*]

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

うまくいきました。

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

編集削除