Lazarus (Delphi/FPC): конструктор в вспомогательном классе не выполнен

Question

Я пытаюсь найти универсальное ** решение для расширения встроенного Treeview/TreeNode с помощью некоторых функций, таких как подсказки для узла. Поэтому сначала я получил TExtendedTreeNode = class(TTreeNode) и добавил соответствующее свойство, которое, кажется, работает нормально - я могу добавить TExtendedTreeNodes с разными подсказками для каждого узла.

Для следующего шага я хочу использовать событие TTreeView.OnMouseMove, чтобы показать соответствующую подсказку, но каково наилучшее решение для расширения этой функциональности универсальным ** способом?

Моя идея состояла в том, чтобы использовать class helper for TTreeView:

type 
    TTreeViewExtension = class helper for TTreeView 
    private 
    procedure ShowNodeToolTips(Sender: TObject; Shift: TShiftState; X, Y: Integer); 
    public 
    constructor Create(AnOwner: TComponent); 
    end; 

...

constructor TTreeViewExtension.Create(AnOwner: TComponent); 

begin 
    inherited Create(AnOwner); 

    ShowMessage('TTreeViewExtension.Create'); 

    self.OnMouseMove := @self.ShowNodeToolTips; 
end; 

код компилируется без предупреждений или ошибок, но этот конструктор не выполняется на создание treeview в моей форме.

И да, я использую advancedrecords в objfpc mode в обоих, моя единичная форма и мой блок расширения - для того, чтобы использовать вспомогательный класс:

{$mode objfpc}{$H+} 
{$modeswitch advancedrecords+} 

** «универсальный» означает, что я хочу использовать интегрированные элементы управления из моей Lazarus IDE, по крайней мере, для элемента управления TreeView, но используйте расширенную функциональность, не записывая код дважды.

Answer 1

Почему бы вам не использовать уже имеющееся событие OnHint, чтобы показать эти всплывающие подсказки. Событие TTreeView.OnHint уже возвращает вам ссылку на узел дерева, который находится под курсором мыши, поэтому у вас не должно возникнуть проблемы с чтением пользовательских подсказок (подсказок) из узла.

Если подсказки могут отображаться в одной строке текста, вы можете просто изменить значение переменной Hint, которое отображается в этом методе.

Вы можете легко прочитать такое значение из своего Extended TreeNode, указав переменную Node, возвращаемую методом события, на ваш класс TExtendedTreeNode. Не забудьте проверить, действительно ли рассматриваемый узел действительно относится к классу.

procedure TForm1.TreeView1Hint(Sender: TObject; const Node: TTreeNode; 
    var Hint: string); 
begin 
    //Check to see if the node beneath the cursor is the extended node 
    if Node is TExtendedTreeNode then 
    //if it is change the hint text to the custom hint stored in the 
    //node itself 
    Hint := TExtendedTreeNode(Node).CustomHint 
    //Else change the hint to empty string so no hintbox will be shown 
    else Hint := ''; 
end; 

И если вы не хотите какой-либо текст намек будет показано и показать вашу информацию другим способом вы просто установите значение в пустую строку Hint.

procedure TForm1.TreeView1Hint(Sender: TObject; const Node: TTreeNode; 
    var Hint: string); 
begin 
    //Set Hint to empty string in order to not show any hint box 
    Hint := ''; 
    //Do some other code instead if you like 
    MessageBeep(0); 
end;