No sé si haya una forma sencilla de hacer esto. Como dices, los eventos OnExpanding y OnCollapsing se lanzan antes del evento OnDblClick, y de hecho, antes que cualquier evento del ratón.
Sin embargo, lo que sí parece ejecutarse antes de estos eventos es el mensaje WM_LBUTTONDBLCLK que recibe el TreeView. Así que, lo único que se me ha ocurrido hasta el momento es crear un descendiente del TreeView que levante una bandera al momento de recibir dicho mensaje, para que el OnExpanding detecte que se ha lanzado como consecuencia de un doble clic.
Al crear un derivado de un control, más que con los eventos, se acostumbra trabajar con los métodos que lanzan esos eventos, que en este caso son CanExpand y CanCollapse.
También, para no tener que crear e instalar un nuevo componente, podemos "sobreescribir" el original declarando la nueva clase con el mismo nombre y
antes de la declaración del formulario.
En resumen, así:
Código Delphi
[-]
type
TTreeView = class(ComCtrls.TTreeView)
private
DoubleClicked: Boolean;
procedure WMLButtonDblClk(var Msg: TWMLButtonDblClk); message WM_LBUTTONDBLCLK;
protected
function CanExpand(Node: TTreeNode): Boolean; override;
function CanCollapse(Node: TTreeNode): Boolean; override;
end;
TForm1 = class(TForm)
TreeView1: TTreeView;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function TTreeView.CanExpand(Node: TTreeNode): Boolean;
begin
Result := inherited CanExpand(Node) and not DoubleClicked;
DoubleClicked := false;
end;
function TTreeView.CanCollapse(Node: TTreeNode): Boolean;
begin
Result := inherited CanExpand(Node) and not DoubleClicked;
DoubleClicked := false;
end;
procedure TTreeView.WMLButtonDblClk(var Msg: TWMLButtonDblClk);
var
TestInfo: THitTests;
Pt: TPoint;
begin
Pt := Point(Msg.XPos, Msg.YPos);
TestInfo := Self.GetHitTestInfoAt(Pt.X, Pt.Y);
DoubleClicked := htOnLabel in TestInfo;
inherited;
end;
No estoy cien por ciento seguro de que se cubran todos los casos pero creo que por ahí puede ir la solución.
// Saludos