Delphi-Quellcode:
Width := (Sender as TControl).ClientToParent(point(X,0)).X + (Sender as TControl).Width - X;
Height := (Sender as TControl).CLientToParent(point(0,Y)).Y +(Sender as TControl).Height - Y;
Wenn ich das ins OnMouseDown packe und während der Laufzeit am Eck ziehe passiert nichts. Hab ich was vergessen?