Form-Position einschränken/beschränken

[Legnad]

Hallo mal wieder!

Heute hab ich folgendes Rätsel mitgebracht! Ach was.

Folgendes:

Wie kann ich die property 'TForm.top' auf 'TForm.top > 75' beschränken? Ich dachte an eine if-anweisung, die das überprüft und bei unterschreitung von 75 auf 75 zurücksetzt. Halt so, dass man die Form nur in einem bestimmen Bereich bewegen kann. Ich frage mich halt bloß, wo ich diese hinschreiben soll. Ich habs mit nem timer versucht (Interval := 1 ), aber der Erfolg war eher mäßig.

Danke für eure Ideen!

[dajuhsa]

vielleicht geht ja OnResize? glaub aber eher nicht..,sorry

[Hawkeye219]

Hallo Christian,

du kannst die Nachricht WM_WindowPosChanging abfangen:

Delphi-Quellcode:

type
  TForm1 = class (TForm)
    [...]
  private
    procedure WMWindowPosChanging (var aMessage: TWMWindowPosChanging);
      message WM_WINDOWPOSCHANGING;
  end;

procedure TForm1.WMWindowPosChanging (var aMessage: TWMWindowPosChanging);
begin
  inherited;
  with aMessage.WindowPos^ do
    if (y < 75) then
      y := 75;
end;

Gruß Hawkeye

[Legnad]

Ne, OnResize geht nicht, hab ich bereits probiert. Deine Idee, Hawkeye, werd ich morgen probieren! Dankechön!

[dajuhsa]

irgendwie kommts ja n bisschen spät, sorry aba theoretisch würde OnMouseUp doch gehen, oder nich?

[Namenloser]

Nein, OnMouseUp wird nur im Clientbereich des fensters ausgelöst.
OnResize müsste aber gehen, da gibt es glaub ich einen Parameter namens canresize, den man dann verändern kann. Ansonsten gibt es bei neueren Delphiversionen die Eigenschaft Constrains, bei der man minimale bzw maximale Höhe und Breite angeben kann.

[Muetze1]

Constraints hilft aber nicht bei einer Einschränkung des Top Wertes, wie du schon geschrieben hast.