Binde mal die
Unit CommCtrl in den Uses ein.
Die Methode
Perform kapselt die
API Funktion
SendMessage und schickt die nachricht an das Betreffende Steuerelement.
SB_GETRECT ermittelt die Größe eines Statusbarpanels und schreibt diese in eine Struktur vom Typ
Rect. Diese wird als WParam als Zeiger (@r) übergeben, der noch mal nach Integer gecastet wird.