TSplitter mit Doppelklick ansprechen

[uligerhardt]

Oder der übliche protected-friend-Trick:

Delphi-Quellcode:

type
  THACK_Splitter = class(TSplitter);

procedure TForm1.FormCreate(Sender: TObject);
begin
  THACK_Splitter(Splitter1).OnDblClick := Splitter1DblClick;
end;