Komponenten zur Designzeit auf dem Formular verschieben

[Alex_ITA01]

Hallo erstmal,
ich wollte mal wissen, wie es funktioniert, dass ich eine z.B. ListBox auf dem Formular verschiebe (zur Designzeit) und sich gleichzeitig ein Edit mit verschiebt?
Also es ist eine abgeleitete ListBox die zwei Komponenten enthält.Nun will ich die ListBox verschieben und die zweite Kompo soll mit "wandern"...
Kann ich da mousemove-events nehmen oder gibts da was anderes?
MFG Alex

[Boombuler]

Zitat:

Zitat von Alex_ITA01

Hallo erstmal,
Kann ich da mousemove-events nehmen oder gibts da was anderes?

Was willst damit? die komponenten hinter der maus her laufen lassen??
sonst würd ich dir wohl doch n timer empfehlen aber das Theman hatten wir hier schon n paar mal einfach die DP suche verwenden

[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