MDIChild in MDIForm zentrieren!

[1PM]

Hallo!

Ich versuche ein MDIChild über Position in einem MDIForm zu zentrieren (wsMaximized)! Doch leider habe ich mit keinem der Menüpunkten erfolg! HAt jemand eine Idee?

Danke im vorraus

Gruß 1PM

[Phoenix]

Code:

   begin
      for i := 0 to MDIChildCount - 1 do
         MDIChildren[i].SetBounds(0, 0, ClientWidth, ClientHeight);
   end;

Damit werden alle Children auf ihre größtmögliche Größe innerhalb des Parents gebracht.

[1PM]

Ich möchte Sie nicht Maximieren, sondern Zentrieren!

[Christian Seehase]

Moin 1PM,

dazu müsstest Du doch nur die Parameter von SetBounds ändern, sprich Left und Top berechnen und Width und Height unverändert übernehmen.

[Phoenix]

Geht im Prinzip genauso:

Code:

MDIChildren[i].SetBounds (RandX, RandY, CliendWidth - RandX, ClientHeight - RandY);

Wobei RandX der horizontale Abstand in Pixeln und RandY der Vertikale ist. Du kannst logischerweise auch vorher die aktuelle Größe des MDIChildren[i] über die Attribute Width und Height abfragen, von der Aktuellen ClientWidth bzw. ClientHeight abziehen und erhälst so den korrekten Rand. Den musst Du logischerweise noch durch 2 dividieren (und runden!) aber das dürfte kein Problem sein :)