Komponenten zur Designzeit auf dem Formular verschieben

[Alex_ITA01]

Nein nicht hinterherlaufen lassen.
Habs so hier gelöst:

Delphi-Quellcode:

...
procedure WMMOVE(var Message: TWMMove); message WM_MOVE;
...
procedure TListe.WMMOVE(var Message: TWMMove);
begin
  if ComponentState = [csDesigning] then
  begin
    if Assigned(FHeaderControl) then
    begin
      FHeaderControl.Left   := Self.Left;
      FHeaderControl.Width  := Self.Width;
      FHeaderControl.Height := 20;
      FHeaderControl.Top    := Self.Top - 19;
      UpdateChanges(Self);
    end;
  end;
end;

MFG Alex