フレームの切り替えをするには？

有浦 2005-11-15 01:37:41 No: 18703

Frames をフォームに貼り付けると
ひとつしか張り付かないのですが
フレームを２つ作って
Form 上でこの２つのフレームを切り替えて表示するには
どうすればよいのでしょうか？

Mr.XRAY URL 2005-11-15 08:28:22 No: 18704

う〜む．どういうふうにレスしたらいいか悩んだのですが....

>ひとつしか張り付かないのですが

私のところでは同じFrameも違うFrameもいくつでもフォームに配置できて
いますよ．Delphi5,6,7ですが．
Frameの作成や利用手順はいろいろありますので，有浦さんの質問の文章
だけですと，これ以上のアドバイスはちょっと無理かも知れませんね．

にしの 2005-11-15 09:02:01 No: 18705

Align:=alClientだと１つしか貼り付けていないようにみえてしまうということでしょうか。
Xr.XRAYさんのいうように複数貼り付けることもできるはずです。
その場合、１つをVisibleにして、他をInvisibleにする必要があります。

簡単な方法としては、TPageControlを使って、
・各ページにFrameを貼り付ける
・各ページのTabVisibleをFalseにする。
・TPageControlのTabIndexで切り替える。
とすればよいかと思います。

ぬ 2005-11-15 10:41:19 No: 18706

プロジェクトのusesに貼り付けしたいフレームが入ってなくて、
ぽとりぺたりしても候補に出てこないとかさ。。。
これなら、「ユニットを追加」とかで、入ったりしないかぃ？

有浦 2005-11-15 19:35:45 No: 18707

すみません。
考え違いしていたようです。

TFrame で２つのUnit を新規作成し、
同じようなフォームで若干違うものを作成しました。

これをひとつのフォームから切り替えて表示し、
表示されているメニューで処理をおこうつもりでした

例えば
Frame1とFrame2 を作成し、
FormMain で切り替える

SelFrame: array [1..2] of TFrame;

表示の切り替え
SelFrame[SelMode].Visible := (SelMode = 1);
SelFrame[SelMode].Visible := (SelMode <> 1);

以下のような記述で処理できないかなと思ったのですが。

if SelFrame[SelMode].RadioButton.Tag = 0
then 〜
else 〜;

Mr.XRAY URL 2005-11-16 03:37:10 No: 18708

でしたら，にしのさんのレスの方法ですね．

>・TPageControlのTabIndexで切り替える。

このTabIndexをRadioButtonで切り替える感じですね．