FormResize-Method und Border

[EWeiss]

Zitat von philipp.hofmann:

Hi,

gibt es eine Chance in der FormResize-Methode (FMX) festzustellen, ob der User noch am Border am resizen ist oder nicht?
Wenn das FormResize ein einmalige Ereignis ist, wie Maximized->Normal oder Bildschirm-Wechsel funktioniert bei mir alles tadellos, aber wenn der User selbst am Rand der Anwendung (im Status Normal) die Größe ändert, will ich einen Part des Codes nur durchlaufen, wenn er damit fertig ist.

Grüße, Philipp

Form <> Form ?
Ist das verhalten bei einer FMX Form denn anders?

Wenn gleich dann kannst du das etwa so prüfen..
Rechter Border..

Delphi-Quellcode:

  if Msg = WM_NCHITTEST then
  begin
    P.X := LoWord(lP);
    P.Y := HiWord(lP);

    GetClientRect(WinHandle, rc);
    xF := rc.Right;
    
    BORDER := GetSystemMetrics(32); // = SM_CXFRAME
    // Rechte Seite
    if (P.X >= xF - 8) then
    begin
      if (P.X >= xF - BORDER) then
        HITTEST := HTRIGHT;
    end;
  end;

Wenn HITTEST = HTRIGHT dann befindest du dich über den rechten Border wenn nicht führe deine Funktion aus.
Aber ob das ausreicht für dein bestreben mag dahin gestellt sein denn eigentlich werden anschließend die Anchors enumeriert.
Und danach müsstest du handeln.
Bei normalen Forms wirst du WM_NCHITTEST wohl überschreiben müssen..

procedure WMNCHitTest(var AMessage: TWMNCHitTest); message WM_NCHITTEST;

Nachtrag..
Für P.X, P.Y verwende besser

Delphi-Quellcode:

    P.X :=  GET_X_LPARAM(lP);
    P.Y :=  GET_Y_LPARAM(lP);

ansonsten kann es passieren das du bei Multimonitoren die Falsche Position bekommst.
https://docs.microsoft.com/en-us/win...clbuttondblclk

gruss