TSplitter - Resize zur Designtime

[Stevie]

Hi,

die Lösung sieht folgendermaßen aus (entweder als Hack in deine Unit oder ne neue Klasse ableiten):

Delphi-Quellcode:

type
  TSplitter = class(ExtCtrls.TSplitter)
    procedure MinimizeControl(AlignedControl: TControl);
  end;

{...}

procedure TSplitter.MinimizeControl(AlignedControl: TControl);
begin
  MouseDown(mbLeft, [], 0, 0);
  MouseMove([ssLeft], 0, AlignedControl.Height);
  MouseUp(mbLeft, [], 0, AlignedControl.Height);
end;