Wie realisieren: "if (Rect1 = Rect2) then"

[Guido Eisenbeis]

In meinem Programm sollen zwei TRects miteinander verglichen werden. Im konkreten Fall frmMain.BoundsRect mit Screen.WorkAreaRect. Ich habe schon etliche Beiträge in verschiedenen Foren im World-Wide-Web durchgelesen, jedoch wurde dort keine Lösung beschrieben. Was dabei jedoch klar wurde, war, dass man das "Miteinander-Vergleichen" möglichst genau beschreiben muss.

Das will ich hiermit tun: Unter dem Vergleichen zweier TRects verstehe ich in meinem Fall, dass die einzelnen Felder der TRects miteinander verglichen werden.

Zum Beispiel führe ich den Vergleich derzeit so durch:

Delphi-Quellcode:

  if (frmMain.BoundsRect.Left = Screen.WorkAreaRect.Left)
    and (frmMain.BoundsRect.Top = Screen.WorkAreaRect.Top)
    and (frmMain.BoundsRect.Right = Screen.WorkAreaRect.Right)
    and (frmMain.BoundsRect.Bottom = Screen.WorkAreaRect.Bottom)
    and ...

Wie kann man das nun kürzer lösen, ohne jedes einzelne Feld zu vergleichen?

Guido.

[Keldorn]

Hallo

Du kannst auch gleich die Funtion EqualRect verwenden.

Gruß Frank

[Guido Eisenbeis]

Zitat von Keldorn:

Du kannst auch gleich die Funtion EqualRect verwenden.

Ja, super! Das wars. Genau was ich gesucht hab: kurz und bündig.

Vielen Dank!