TSplitter - Resize zur Designtime

[Benedikt]

Hi,

ich hab ein recht merkwürdiges Problem mit dem TSplitter, und zwar teile ich zwei Komponenten horizontal mit einem TSplitter ab (Obere alClient, Splitter und Untere alBottom) - das klappt soweit auch alles super, zum Problem wird das Ganze nur, wenn ich z.B. über einen Button die Splitter-Position ändern will:

Wenn ich dann nämlich UntereKompo.Height:=0 mache, ist der Splitter zwar noch zu sehen, allerdings ist er danach nicht mehr beweglich, obwohl die Top und Height werte die gleichen sind, wie wenn ich den Splitter mit der Maus ganz nach unten ziehe...

Hat also irgendwer eine Idee wie ich direkt per Code die untere Komponente quasi minimieren kann, so dass der Splitter aber trotzdem funktionsfähig bleibt?

Ich hoffe das Problem ist zu verstehen,

vielen Dank und freundliche Grüße,
Benedikt Loepp

[Pr0g]

Du darfst das Objekt nicht kleiner machen, als MinSize vom Splitter und der Wert ist min. 1. Wenn du das Objekt also statt 0 einfach 1 Pixel hoch machen würdest, müsste es gehen.

MfG Pr0g

[Benedikt]

Klar geht das dann - sieht aber ein wenig komisch aus wenn das Objekt noch mit einer Größe von einem Pixel zu sehen ist - das kann den ein- oder anderen schon irritieren
Es muss ja auch irgendwie anders möglich sein, immerhin funktioniert es ja per Hand richtig...

[Pr0g]

Ich denke mal, du wirst die eine eigene Kompo vom TSplitter ableiten müssen, um dann bspw. ein OnMouseDown Ereignis oder ähnlich hinzufügen zu können. In diesem kannst du dass "Verschieben" starten.

Btw: Mir ist jetzt erst aufgefallen dass du ja der Autor von Scriptly bist, hin und wieder kommen ein paar User wegen der Plugins von deiner auf meine Seite.

[Benedikt]

War mir auch sofort klar das du der Autor vom Webweaver bist - kommen hin und wieder auch Leute von deiner Seite auf meine...

Jo, scheint keine ordentliche Lösung für dieses Problem zu geben, dann muss ich mir halt selbst was zusammenbasteln

[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;

[Benedikt]

Habs mittlerweile ähnlich gelöst
Trotzdem danke...