Treeview und max. Breite

[bingo72]

Hallo Experten!!

Ich möchte einem User erlauben, die TreeView max. eine 1/4 Seitenbreite auseinanderziehen zu lassen. Wie kann ich das machen??
Bitte um Ideen...

LG
Thomas

[DeddyH]

Delphi-Quellcode:

procedure TForm1.FormResize(Sender: TObject);
begin
  Treeview1.Constraints.MaxWidth := self.Width div 4;
end;

[s-off]

Hallo,

Du lässt also den User zur laufzeit die Größe des TreeViews ändern, habe ich das richtig verstanden?

Dann würde ich die Message 'WM_SIZE' abfangen, die gefeuert wird, sobald sich die Größe des TreeViews ändert.
Dort prüfst Du dann die Width-Property auf <= Form.Width div 4.

[bingo72]

Ja hast Du richtig verstanden...danke für die Tipps!!

Jetzt hab ich gleich rechts neben der Treeview einen Splitter, den ich mit Align = left an die Treeview 'patze'...
Nach dem Einbau der Constraints bleibt zwar die Treeview bei der vorgegeben Größe stehen, aber der Splitter läßt sich dennoch weiter nach rechts verschieben. Vielleicht brauch ich ja da nur das Verhalten des Splitters regeln, da sich ja die TreeView sowieso an dem Splitter orientiert?? Was meint ihr??

LG
Thomas

[s-off]

Dann habe ich Dich doch nicht richtig verstanden - dachte, Du regelst das per Drag'n'Resize, aber egal

Mit Splitter geht's natürlich ganz anders und viel einfacher:

Delphi-Quellcode:

procedure TForm1.Splitter1CanResize(Sender: TObject; var NewSize: Integer;
  var Accept: Boolean);
begin
   if NewSize > Form1.Width div 4 then
      Accept := False
   else
      Accept := True;
end;

[DeddyH]

Oder etwas kürzer:

Delphi-Quellcode:

procedure TForm1.Splitter1CanResize(Sender: TObject; var NewSize: Integer;
  var Accept: Boolean);
begin
  Accept := NewSize < self.Width div 4;
end;