問題タブ [tpagecontrol]

TPageControl Style を Flat Buttons ( tsFlatButtons) に設定し、イベントを使用してタブのボタンの色を変更しますOnDrawTab。

動作しますが、アクティブでないボタンには灰色 (btnFace 色) の境界線があります!

これを修正する方法はありますか？

タブ領域とは異なり、TPageControlの（ちょうど）タブにコンテキストメニューを追加したいと思います（たとえば、Delphiがファイル/ページオプションを提供するように）。私はTRzPageControlでこれを行うことができることを知っていますが、TPageControlでどのようにそれが可能でしょうか？

ここで提供されている例を使用して TPageControl の TTabsheet に閉じるボタンを実装し、キャプションが一致するタブ シートにフォームの親を設定する方法を組み合わせて、TTabSheet として添付されたフォームでページ コントロールを取得し、閉じるボタンと画像を追加することができました今日の Web ブラウザで見られるような画像リストです。

私が変わるとき

に

OnMouse イベントは、ドッキングされたフォームで検出されないため、閉じるボタンが機能しなくなります。

（特別な条件に基づいて）ユーザーがページコントロールでタブを開くかどうかを制限したい。つまり、ユーザーはタブをクリックできますが、表示されません。代わりに、メッセージが彼に「he don't have the access right to see such tab」と表示されます。

どのイベントでチェックコードを書く必要があり、（TPageControlコンポーネントの）どのタブプロパティがユーザーにそのようなタブへの入力を許可/ブロックしますか？

フォームにPageControlがあり、ユーザーが別のタブを選択していることを検出したいと思います。

これどうやってするの ？Delphi7を使用しています。

イベントは見つかりませんでした。独自のページコントロールを開発するための無駄な時間は、私が意図していることとは異なります。

私は Lazarus 0.9.30.2 を実行しています。

TPageControl がある TForm があります。TPageControl 内には、一連の TTabSheets があります。実行時の TTabSheets の順序は、設計時とは異なります (図を参照)。

設計時の順序は、少なくともフォームが最初に表示されるときに、実行時に見たいものです。実行時に順序が変わるのはなぜですか?これを制御する方法はありますか?

私はとを持ってTPageControlいTTabSheetます。その中でTTabSheet私はたくさんの関数とコンポーネントを持っています。実行時に、すべての機能とコンポーネントがまだ機能しているボタンを使用して、そのtabSheetを複製したいと思います。

今、私はなんとかタブシートを複製することができました。ただし、新しいタブシートは完全に空です。

これがそのボタンの私のコードです。

私は何が欠けていますか？

TTabSheets内のコンポーネントと機能は、単なるスクロールボックス、編集、ボタン、およびパネルです。

メイン フォーム (画像の form1) の中央にページ コントロールがあり、ページ コントロールにドッキングされた他のフォームを開きたいと考えています。子フォームには多くのコントロールがあるため、垂直スクロールバーと水平スクロールバーの両方が必要です (子フォームでは、アクティブなスクロールバー オプションがアクティブになっています)。べきであり、それらは使用できません。これは VCL スタイルのバグのようなものですか?

PageControlに閉じるボタンを実装したいのですが、この質問も読みました。TPageControlのTTabsheetに閉じるボタンを実装する方法
Ulrichbの回答で提供されているコードを実装する方法がわかりません。 ...彼らはTPageControlの子孫である新しいコンポーネントを構築していますか？誰かがその特定のコードをどこに書くべきか説明できれば、私は感謝するでしょう！私の学校にはデルフィを少し知っている先生が1人いますが、彼は私を助けてくれませんでした。これがばかげた質問である場合は申し訳ありませんが、デルフィとプログラミングは初めてです。