Änderung der Fenstergröße begrenzen

[Keks]

Ich würde dem Benutzer gerne die Möglichkeit geben, die Fensterhöhe (jedoch nicht die Fensterbreite!) selbst zu bestimmen, wobei ein Minimum und ein Maximum definiert sein sollen.

Ich habe BorderSize auf bsSizeable gesetzt und muss jetzt noch verhindern, dass die Fensterhöhe beim Ziehen der Ränder kleiner als 300 und größer als 600 Pixel wird. Die Breite soll nicht veränderbar sein!

Ich habe das jetzt mal so angefangen:

Delphi-Quellcode:

procedure WMSIZING(var Msg: TMessage); Message WM_SIZING;

procedure TForm.WMSIZING(var Msg: TMessage);
begin
  if Msg.Msg = WM_SIZING then
  begin
    case Msg.WParam of
      WMSZ_BOTTOM, WMSZ_TOP:
      begin

          if Height > 600 then
            Height := 600
          else if Height < 300 then
            Height := 300;
               
      end;
    end;
  end;
end;

Das funktioniert aber nur sehr unzufriedenstellend. Die Fenstergröße springt beim Ziehen immer hin und her.
Ich glaube, da muss ein anderer Ansatz her, habe aber leider keine bessere Möglichkeit gefunden. Weiß jemand Rat?

[blablab]

Schau dir die Eigenschaft "Constraints" mal an oder ändere die Fenstergröße in OnCanResize.

[Keks]

Zitat:

Zitat von blablab

Schau dir die Eigenschaft "Constraints" mal an

Sooo einfach? Oh man, vielen Dank! :)

Das mit der Höhe ist jetzt perfekt.
Bei der Breite habe ich jetzt bei Min und Max jeweils 500 eingetragen. Damit lässt sich die Breite nicht mehr ändern. Lässt sich jetzt noch einstellen, dass der linke und der rechte Rand gar nicht mehr auf die Maus reagieren? Aktuell verändert sich da immer noch der Mauszeiger in den horizontalen Doppelpfeil und wenn ich am linken Rand anpacke, dann lässt sich das Fenster damit verschieben. Das ist zwar nicht gravierend, aber irgendwie unschön.

[Keks]

Zitat:

Zitat von Keks

Lässt sich jetzt noch einstellen, dass der linke und der rechte Rand gar nicht mehr auf die Maus reagieren? Aktuell verändert sich da immer noch der Mauszeiger in den horizontalen Doppelpfeil und wenn ich am linken Rand anpacke, dann lässt sich das Fenster damit verschieben.

Keiner eine Idee?

[Uwe Raabe]

Ich glaube nicht , daß sich das ohne tiefe Eingriffe in Windows lösen läßt. Meine Empfehlung: lass es lieber.