Free Pascalのオブジェクトから別のオブジェクトにメッセージを渡すには

Question

私はフォームを持っていて、 'MyPages'という名前の 'TPageControl'オブジェクトと 'MyButton'という名前の 'TButton'オブジェクトを持っていますその上にデザイン時間。 次に、 'TTabSheet'を拡張する 'TTab'という新しいクラスがあります。 'TTab'クラスには、以下のようなメンバ変数の1つとして 'TButton'オブジェクトがあります。私は「MyButtonという」をクリックすると

class TTab = class(TTabSheet) 
private 
    m_btnCloseTab: TButton; 
end; 

は、それはタブのinit（「m_btnCloseTab」をインスタンス化するように）、新しい「TTAB」オブジェクトを作成し、 実行時で「MyPages」にそれを追加します。

これは、TTab.Init（newCaption：AnsiString）プロシージャの外観です。

Procedure TTab.Init(newCaption: AnsiString); 
begin 
    Self.Caption:= newCaption; 
    m_btnCloseTab:= TButton.Create(nil); 
    with m_btnCloseTab do begin 
    Parent:= Self; 
    Left:= 10; 
    Top:= 10; 
    Caption:= 'Close Tab'; 
    Visible:= True; 
    OnClick:= @closeTab; 
    end; 
end; 

新しいタブが追加されました。閉じるボタンは、各タブにも表示されます。

各タブの[m_btnCloseTab]をクリックして、特定のタブを閉じるにはどうすればよいですか？

以下のようにTTabのデストラクタを（TTabSheetのデストラクタをオーバーライドして）定義すると、私は外部から呼び出すことができます。

Destructor TTab.Destroy; 
begin 
    if m_btnCloseTab <> nil then begin 
    m_btnCloseTab.Destroy; 
    m_btnCloseTab:= nil; 
    end; 
    inherited; 
end; 

しかし、私は、タブ内からデストラクタを呼び出すことはできません（まあ、できます）。私がそれを行うと、m_btnCloseTabオブジェクトが例外を返すように解放することはできません。これは、まだイベントハンドラであるためです。私がそれを解放しなければ、タブはきれいに閉じますが、メモリがリークします（私たちはm_btnCloseTabを解放しなかったので）。

デストラクタを 'TTab'の外部から呼び出すことができるようにイベントをトリガーする必要があると思います。私はそれをする方法を知らない。

ご協力いただければ幸いです。

ありがとうございました。

Answer 1

通知方法は、LCLソース（もちろんデルファイ）でも利用できます。簡単な例はTLabeledEditです：これはTLabelを含む何らかの "TEdit"です。 Labelが破棄された場合、Labeledへの参照をnilに設定する必要があるため、LabeledEditに通知されます。さもなければ、TLabeledEditのデストラクタは再びラベルを破棄しようとします。

procedure TCustomLabeledEdit.Notification(AComponent: TComponent; 
    Operation: TOperation); 
begin 
    inherited Notification(AComponent, Operation); 
    if (AComponent = FEditLabel) and (Operation = opRemove) then 
    FEditLabel := nil; 
end; 

そして、ここで、あなたはあなたのケースでなければならないものを見ることができます：ここでの方法は、（ExtCtrlsから貼り付け）このようなものです

procedure TTab.Notification(AComponent: TComponent; 
    Operation: TOperation); 
begin 
    inherited Notification(AComponent, Operation); 
    if (AComponent = m_BtnCloseTab) and (Operation = opRemove) then 
    m_BtnCloseTab := nil; 
end; 

は、その通知を注意してください仮想メソッドであるとしなければなりませんコンポーネントのprotectedセクションで属性overrideで宣言してください。

Answer 2

私はこのタスクに1つのボタンを使用します。

TTabからm_btnCloseTab宣言を取り出し、プライベートメインフォームに入れます。メインフォームのFormCreateに続いて

：

m_btnCloseTab：=のTButton。作成（MyPages）;

（上記の、それは最初に作成しなければならない場合は、フォーム上に配置されている部品であるMyPagesを前提としています。）

は、ボタンをあなたのTTABのために理にかなっている上部と左を与えます。

m_btnCloseTabは、MyPagesが解放されたときに解放され、フォームが閉じられたときに解放されます。

あなたがしなければならないのは、好きなように新しいタブを作成することだけです。フォーカスしている場合は、そのタブをボタンの親にするだけです。たとえば、MyPagesのOnChangeメソッドやそれが何であれ、これを行うことができます。

ボタンをクリックすると、TTab（親）のようになります。フリー。

しかし、あなたは、ボタンのOnClick内のローカル変数に親を保存する必要があるかもしれませんが言う：

は

TempTab：TTAB

そして、単に設定TempTab：nilに= TTAB（親）、設定ボタンの親その後、TempTab.Freeを呼び出します。

私はあなたのタブにもオーナーを与えます。このようにして、ユーザーがタブが開いた状態でフォームを閉じると（つまり、ボタンはクリックされていません）、所有者はフォームを解放します。

NEWTAB：

だから、あなたのようなタブを宣言= TTab.Create（MyPages）。

これはあなたの問題をすべて解決するはずです。ちょっとした手間がかかった後は、管理が簡単です。

最後に、.destroyを直接呼び出すのではなく、.Freeおよび/またはFreeAndNil（）メソッドを使用します。