Delphi-Quellcode:
procedure TControl.SetWidth(Value: Integer);
begin
SetBounds(FLeft, FTop, Value, FHeight);
Include(FScalingFlags, sfWidth); // <- Der Befehl macht es schön ;-)
end;
Jo, da sitzt das Geheimnis.
Abba dat kann man nicht so einfach aufrufen, oder bin ich da auf dem Schlauch (heavy on woodway)
Wer weiss wie man Delphi dazu überredet, diesen Befehl auszuführen (mache ich ja gerne auch selber).
So müsste ich die Eigenschaft von TControl abändern (das ist doof)