ChildForm zusammen mit MainForm verschieben

[sundance]

Hallo,

in meinem Programm wird von der MainForm ein ChildForm angezeigt, welches per FormStyle := fsStayOnTop immer überhalb des Hauptfensters liegt.
Wie kann ich es anstellen, dass (falls es gerade angezeigt wird) das ChildWindow gleichzeitig mit dem Hauptfenster verschoben werden kann? Es sollte aber nur eine "einseitige Kopplung" vorhanden sein, d.h. das ChildWindow muss sich unabhängig vom Hauptfenster verschieben lassen.

.sundance.

[mkinzler]

Z.B. als MDI oder beim Verschieben des Hauptfensters entsprechend Unterfenster verschieben

[sundance]

Zitat von mkinzler:

Z.B. als MDI oder beim Verschieben des Hauptfensters entsprechend Unterfenster verschieben

So war der Plan...
Aber wie macht man das am besten (ohne viel Geflacker...)?
Vielleicht über das Versenden einer Message an das ChildWindow, wenn sich die Position des Hauptfensters geändert hat? Ein kleiner Code-Ausschnitt wäre super...

[DeddyH]

Nicht ausprobiert: wenn man WM_MOVING auswertet, müsste sich doch das übergebene Rechteck auf das Childform umrechnen und dann an dieses schicken lassen.

[sundance]

Zitat von DeddyH:

...wenn man WM_MOVING auswertet...

Du hast nicht zufällig ein Codebeispiel zur Hand?
(mit Messages habe ich bisher noch nichts gemacht...)

[DeddyH]

Delphi-Quellcode:

type
  TFormTest = class(TForm)
    procedure FormShow(Sender: TObject);
  private
    { Private-Deklarationen }
    procedure WMMoving(var Msg: TMessage); message WM_MOVING;
  public
    { Public-Deklarationen }
  end;

...

procedure TFormTest.WMMoving(var Msg: TMessage);
begin
  inherited;
  OtherForm.Left := Left + Width;
end;