Delphi：3ツールボタン - 3フレーム=切り替え

Question

3つのグループ化されたツールボタン（ツールバー）があります。そのうちの1つは常にダウンしています。私は3つのフレームを持っています。ボタン間のフレームの切り替えを変更する最も簡単で正しい方法は何ですか？

ありがとうございます！

Answer 1

正しい方法は最高です。最も簡単な方法の1つは、グループ化されたボタンf.iに対して一意のTagを設定することです。 0、1、2は、その後、同じハンドラに3つのボタンの「クリック時」のすべてを設定し、クリックされたボタンのタグに応じて、あなたのフレームの1つを表示し、他を隠す：

procedure TForm1.ToolButton1Click(Sender: TObject); 
begin 
    Frame1.Hide; // will return immediately if already hidden 
    Frame2.Hide; 
    Frame3.Hide; 
    case TToolButton(Sender).Tag of 
    0: Frame1.Show; 
    1: Frame2.Show; 
    2: Frame3.Show; 
    end; 
end; 

これはあなたを想定していますデザイン時に既にフレームをフォームに配置しています。ボタンのGroupedプロパティーと 'Style'プロパティーを 'tbsCheck'に設定することを忘れないでください。

Answer 2

フレームは、すべての画面上の同じ位置にある場合は、それをSertacが示唆するような方法を行うことはIDEでを見て、それは本当に厄介になります彼らは彼らの所有者のフォームにどのように見えるか

Iフレームをページコントロールまたはタブコントロールに配置することをお勧めします。