Hi
Danke für Deine Hilfe und ich finde folgendes:
Delphi-Quellcode:
procedure TBaseCustomControl.WMSizing(var AMsg: TMessage);
var ARect : PRect;
begin
if not Grid then
Exit;
ARect := PRect(AMsg.lParam);
GetRastControlRect(ARect);
end;
und
procedure WMMoving
..
Hab ich da was nicht verstanden oder nicht gefunden?
Gruss