Childfenster im Parentfenster an der rechten Seite ausrichten

[Siegl]

Hallo,

WM_RESIZE ist schwierig. Ich habe ShellMessage und HSHELL_REDRAW verwendet. Das ist relativ einfach und das Ergebnis ok.

Beispielcode:

Code:

procedure TForm.ShellMessage(Sender: TObject; var Msg: TMessage);
begin
  if (GetClassName(Msg.LParam) = 'Applikation_ClassName')
    and ((Msg.WParam = HSHELL_WINDOWCREATED) or (Msg.WParam = HSHELL_REDRAW)) then
      UpdateWindowPos;
end;

Danke für Deine Antwort Jaenicke

Gruß Siegl