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

解決

雪やコンコン  2005-01-22 15:52:32  No: 12820  IP: 192.*.*.*

お世話になります。

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

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

編集 削除
りおりお  2005-01-22 21: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 10:19:01  No: 12822  IP: 192.*.*.*

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

うまくいきました。

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

編集 削除