TShape an Größe von TForm oder TImage anpassen

[merlin2004]

Zitat von Phoenix:

Also idealerweise machst Du das im Resize des Forms.

Zum Einen musst Du Dir immer die Größe des Forms / Images merken. Nach dem Resize hast Du die alten Daten nämlich nicht mehr. Also beim ersten FormShow und bei jedem Resize _nach_ dem Ändern des Shapes die neue Größe in Variablen wegsichern.

Das Delta (also die Veränderung) musst Du von Hand auf das TShape umrechnen. Daher brauchst Du auch die alten Größenangaben. Du musst die alte Breite mit der neuen zu einem Veränderungsfaktor umrechnen und diesen Faktor auf die Left-Position des Shapes anwenden um das entsprechend zu verschieben. Analog die Höhe mit der Top-Position.

Das Prinzip ist schon klar - aber wie kann ich die neuen Werte an das TShape übergeben. Muß ich da mit Window Messages arbeiten?
Oder soll ich mir eine Schleife bauen, die die aktuellen Shapes abfragt und dann deren Werte ändert?



merlin