Hallo zusammen,

ich habe den Splitter in dem Beispiel Programm dazu gebracht, dass er nur in einem bestimmten Bereich zu verschieben ist. Das funktioniert auch soweit sehr gut.

Jetzt stellt sich mir nur die Frage, wie ich den Splitter dazu bewege auf der Endposition zu bleiben, auch dann, wenn die Maus noch weiter nach rechts geht ?

Die zweite Frage wäre noch, das nur das OnMouseMove-Ergeignis ausgeführt wird, wenn die linke Maustaste gedrückt ist ?

Ich habe das Projekt unter Delphi XE4 erstellt.

Hat denn keiner eine Idee, wie ich das Verschieben des Splitters in einem bestimmten Bereich noch verbessern kann ?

Oh, ich kann Dein Formular mit XE3 gar nicht öffnen. Da ist offenbar noch einiges geschraubt worden.

Für die erste Frage kannst Du vielleicht TSplitter überschreiben und Grenzwerte für X+Y festlegen.
Die sind natürlich evtl. etwas schwierig zu ermitteln.
Alternativ könntest Du eine Ereignisbehandlung OnIsSplitterInRange ausführen und wenn False zurückgeliefert wird Veränderungen verweigern.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TSplitter.MouseMove(Shift: TShiftState; X, Y: Single);
var
  NewSize, Split: Single;
  RangeResult: Boolean;
begin
  inherited;
  if FPressed and Assigned(FControl) then
  begin
// X und Y "korrigieren"
// if Assigned(fOnIsSplitterInRange) then
// begin
// fOnIsSplitterInRange(Self, RangeResult);
// if not RangeResult then Exit;
// end; ... irgendwie sowas
    CalcSplitSize(X, Y, NewSize, Split);
    if DoCanResize(NewSize) then
    begin
      FNewSize := NewSize;
      FSplit := Split;
      UpdateControlSize;
    end;
  end;
end;

Constraints für Deine Panels gibt es noch nicht - oder?
Evtl. deren Breite immer wieder auf einen Maximalwert setzen?

So ganz verstehe ich Deine Fragen aber noch nicht. Kann morgen Abend das mal unter XE3 nachbauen...

Hallo,

ich würde mal die Eventhandler Splitter1MouseLeave und Splitter1MouseMove löschen, und es mit

markieren

Delphi-Quellcode:

procedure TForm1.Panel2Resize(Sender: TObject);
begin
  if Panel2.Width > LeftClientWidth then
    Panel2.Width := LeftClientWidth
end;

versuchen

Gruß

Hallo Andre,

danke erstmal für Deine Antwort.

Zitat von stahli:

Für die erste Frage kannst Du vielleicht TSplitter überschreiben und Grenzwerte für X+Y festlegen.
Die sind natürlich evtl. etwas schwierig zu ermitteln.

Die X und Y Werte ist nur die Position der Maus innerhalb des Splitters.

Zitat von stahli:

Alternativ könntest Du eine Ereignisbehandlung OnIsSplitterInRange ausführen und wenn False zurückgeliefert wird Veränderungen verweigern.

Das habe ich ja schon mit meinen beiden Procedure's erreicht.

Zitat von stahli:

Constraints für Deine Panels gibt es noch nicht - oder?

Nein, ein Contraints gibt es für keine Komponente.

Ich habe mal eine EXE angehängt, die mein Problem vielleicht etwas verdeutlicht.

Hallo Volker,

danke für Deinen Tipp. Ich habe das ganze mal ausprobiert und Dein Ansatz war völlig richtig. Hier mein Endergebnis :

zusammenfalten · markieren

Delphi-Quellcode:

var
  HalfClientWidth : Single;
  LeftClientWidth : Single;

procedure TForm1.FormResize(Sender: TObject);
begin
  HalfClientWidth := Round(self.ClientWidth / 2);
  LeftClientWidth := 300;
end;

procedure TForm1.Panel2Resize(Sender: TObject);
begin
  if LeftClientWidth > Panel2.Width then
    Panel2.Width := LeftClientWidth
  else
    if Panel2.Width > HalfClientWidth then
      Panel2.Width := HalfClientWidth - Splitter1.Width;
end;

Nun kann ich das Panel2 in der Breite nicht kleiner als 300 Pixel machen und das Panel 3 nicht kleiner als die Hälfte der Breite vom Fenster. Ich habe auch jetzt nichtmehr das Zittern des Splitters, wenn ich über die Grenze des Bereiches gehe. Damit bin ich wieder einen Schritt weiter.

Edit:
Ich habe auch einen entsprechenden Eintrag in meine Code-Orakel Online Datenbank gemacht.

Hallo,

ich würde eher auf etwas in dieser Richtung setzen:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  // kannst Du natürlich auch im Objectinspector setzen
  Splitter1.MinSize := 300;
  Panel2.Width := Splitter1.MinSize
end;

procedure TForm1.FormResize(Sender: TObject);
var
  w : Integer;
begin
  w := Round (ClientWidth / 2);
  if w <= Splitter1.MinSize then
    Panel2.Width := Splitter1.MinSize
  else
    Panel2.Width := w
end;

procedure TForm1.Panel2Resize(Sender: TObject);
var
  w : Integer;
begin
   w := Round (ClientWidth / 2);
   if Panel2.Width > w then
     Panel2.Width := Splitter1.MinSize + w - Splitter1.MinSize
end;

procedure TForm1.FormCreate(Sender: TObject);

Denn das funktioniert auch noch nach einer Größenänderung des Fensters.

Gruß

Ok, schön wenn es jetzt passt.

Bei meiner Lösung (innerhalb von TSplitter) hätte man noch mit ClientToParent arbeiten müssen.
Aber das wäre schon sehr umständlich geworden (mindestens ).

Danke für Deinen Vorschlag Volker, aber der hat einen Nachteil. Bei jeder Größenänderung des Fensters springt der Splitter immer in die Mitte des Fensters. Dieses finde ich einen unschönen Effekt. Bei meiner Version bleibt der Splitter an der Stelle, wo ich ihn zuletzt abgesetzt habe.

So wäre es jetzt aus meiner Sicht perfekt :

zusammenfalten · markieren

Delphi-Quellcode:

var
  HalfClientWidth : Single;
  LeftClientWidth : Single;

procedure TForm1.FormResize(Sender: TObject);
begin
  HalfClientWidth := Round(self.ClientWidth / 2);
  LeftClientWidth := 300;
  Panel2Resize(nil);
end;

procedure TForm1.Panel2Resize(Sender: TObject);
begin
  if LeftClientWidth > Panel2.Width then
    Panel2.Width := LeftClientWidth
  else
    if Panel2.Width > HalfClientWidth then
      Panel2.Width := HalfClientWidth - Splitter1.Width;
end;

Bei dieser Version bleibt der Splitter immer an der gleichen Position stehen, wenn der Splitter innerhalb des Bereichs ist. Wenn der Splitter beim Verändern der Größe außerhalb des Bereichs ist, dann springt er immer in die Mitte des Fensters.

Hallo,

Zitat:

[...] Bei jeder Größenänderung des Fensters springt der Splitter immer in die Mitte des Fensters. Dieses finde ich einen unschönen Effekt. [...]

Sorry, da habe ich dann wohl zu viel hineininterpretiert.

Bei Deiner Lösung scheppert es aber mit einem Stackoverflow. Ich meine es müsste heißen:
if LeftClientWidth >= Panel2.Width then

Gruß