TSplitter - AutoSnap nach beiden Seiten

[Björn Ole]

Servus zusammen,


ich frage mich gerade, ob folgendes möglich ist:

Ich habe zwei Panels und einen Splitter dazwischen [alLeft | alLeft | alClient].
Der Splitter schnappt mit AutoSnap kurz vor dem linken Formrand ganz weg, wie gewollt.
Ist dieses Verhalten auch nach rechts hin möglich, sodass ich z.B. eine maximale Breite (des linken Panels also) angebe, und wenn der Splitter kurz davor ist,
auch in dieses Maximum "springt" und sich von dort auch nicht über das Maximum hinaus verschieben lässt?

Ich sollte noch dazu erwähnen, dass ich den ResizeStyle auf rsUpdate gesetzt habe, d.h. beim Verschieben werden die Panels neugezeichnet.

Hatte mich schon selbst versucht, aber das ergab alles Komponentenbrei.
Hat jemand einen geschickten Ansatz?


MfG, Björn

[Bernhard Geyer]

Falls fremdkompos möglich sind probier doch mal den TELSplitter vom Elpack aus.

[Björn Ole]

Danke für deinen Vorschlag!


Ich hatte gestern zu eingeschränkt gedacht, in meinem Fall bietet das Event CanResize des linken Panels die perfekte Lösung.

Delphi-Quellcode:

const
  MAX = 500; // maximal Breite des linken Panels
  SNAP = 50; // Abstand, der über"snapt" werden soll

procedure TFrmMain.FormCreate(Sender: TObject);
begin
  PanelLeft.Constraints.MaxWidth := MAX
end;

procedure TFrmMain.PanelLeftCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
  if NewWidth > MAX - SNAP then
    NewWidth := MAX;
end;