Einzelnen Beitrag anzeigen

Benutzerbild von TheMiller
TheMiller

Registriert seit: 19. Mai 2003
Ort: Gründau
2.480 Beiträge
 
Delphi XE7 Architect
 
#1

Anchors fehlerhaft / Komponente länger als Form

  Alt 17. Jul 2009, 11:50
Hallo,

ich habe hier ein Problem mit der Anchors-Eigenschaft. Und zwar habe ich eine PageControl-Komponente, die zwischen Menü und Statusleiste sitzt und zu allen Komponenten bzw. allen Seiten 10px Abstand hat (ungefähr). Da die User das Programm vergrößern dürfen / sollen, hat diese Komponente alle Anchors gesetzt bekommen (links, rechts, oben, unten).

Auf meinem Notebook / Desktop-PC funktioniert das vergrößern und verkleinern super. Probleme macht das Netbook. Das Programm bekomm bei eine Netbook-Auflösung eine spezielle Größe, die auch eingehalten wird. Die PageControl wird auch etwas verkleinert, aber nicht genug. Sie ist so lang, dass sie hinter der Statusbar verschwindet.

Wird die Form vergrößert oder verkleinert, wird die PageControl das auch - die Anchors scheinen zu greifen. Dennoch ist die Komponente zu groß (ca 50px) und wird somit abgeschnitten.

Beim Start prüfe ich, ob die Auflösung des PCs kleiner als 800 ist und setze so die Größe des Programms fest. Hier noch etwas Code:

Delphi-Quellcode:
Form1.Left:=ini.ReadInteger('Position', 'Left', 0);
    Form1.Top:=ini.ReadInteger('Position', 'Top', 0);
    Form1.Width:=ini.ReadInteger('Position', 'Width', 972);
    if (Screen.Height < 800) then // NetBook-Res
      //Form1.Height:=ini.ReadInteger('Position', 'Height', Screen.Height-60)
      Form1.Height:=ini.ReadInteger('Position', 'Height', 560)
    else
      Form1.Height:=ini.ReadInteger('Position', 'Height', 614);
Für Form1 habe ich auch Constrains gesetzt: MinHeight = 530 | MinWidth = 956

Ich hoffe ihr habt verstanden, was mein Problem ist und könnt mir helfen.

Vielen Dank im Voraus
  Mit Zitat antworten Zitat