Registriert seit: 26. Nov 2003
Ort: Lünen
1.932 Beiträge
Delphi 7 Enterprise
|
Re: Komponenten je nach Style verschoben?
26. Jun 2004, 02:17
Das Problem wird sein, dass die Clientarea beim XP-Style relativ zur gesamten Fenstergröße kleiner ist. Das heisst, dass die Titelleiste höher ist als beim "alten" Style. Die Statusbar ist sicherlich an "bottom" verankert, der Rest aber an "top left", gell!?
Dann ist es klar, dass die "top left" verankerten etwas runter rutschen, da du in TForm.Height ja die Gesamthöhe incl. Titelleiste übergibst. Du müsstest also die reale Höhe der Titelleiste ermitteln, und dein Form so in der Höhe ändern, dass der Clientbereich wieder passt. (ClientRect udn TForm.Height sollten zur ermittlung reichen, man kann das ja ein Mal beim Programmstart antesten, und den ermittelten Wert dann weiterhin verwenden.)
n8i,
dizzy
Fabian K. INSERT INTO HandVonFreundin SELECT * FROM Himmel
|