TSplitter 2x

[maxrgb]

Hallo Delphi-Freunde,
Splitter1Moved löst 2x aus. Wie kann ich es auf 1x reduzieren?


^{procedure TForm1.Splitter1Moved(Sender: TObject);
begin
  ShowMessage('Splitter1Moved');
end;}