Hallo,

weiß jemand, wie ich ein eingefügtes (Child-)Fenster am rechten Rand eines Parentfensters verankern kann?
Wäre in Delphi Anchors := [akTop,akRight]


Siegl

Ein paar Details wären interessant...

Meinst du ein Fenster, das du mit SetParent in ein anderes eingebettet hast?
Dann kannst du es in eine andere Komponente einbetten und die entsprechend positionieren, anders wird das nicht gehen.

Frage: Ist die "Verankerung" Sache der Windows-API oder der Anwendung???


Hinweis zum Code:
ParentForm bzw. ParentWindow ist eine ControlBar einer fremden Windowsanwendung.
FormX ist hier eine ToolBar, welche am rechten Rand der ControlBar eingefügt/verankert werden soll.
UpdateWindowPos wird z.Z. durch eine allg. Updatemethode aufgerufen. Ich denke aber, WinProc wäre ggf. geeigneter.

markieren

Code:

FParentForm: HWnd;

TFormX.CreateParented(AParentForm);

...

constructor TFormX.CreateParented(ParentWindow: HWnd);
begin
  inherited CreateParented(ParentWindow);
  FParentForm := ParentWindow;
  SetWindowLong(ParentWindow,GWL_STYLE,GetWindowLong(ParentWindow,GWL_STYLE) or WS_CLIPCHILDREN or WS_CLIPSIBLINGS);
end;

...

procedure TFormX.UpdateWindowPos;
var R: TRect;
begin
  GetClientRect(FParentForm,R);
  SetWindowPos(Handle,HWND_TOP,R.Right - Width + 8,0,0,0,SWP_NOSIZE or SWP_NOACTIVATE);
end;

Siegl

Die Anchors setzt Delphi um, d.h. wenn du dein Fenster in ein fremdes einblendest, kannst du diese dafür nicht nutzen. Da bleibt nur auf WM_RESIZE usw. zu reagieren (dafür musst du dich vermutlich in die fremde Anwendung einklinken) und dich selbst darum zu kümmern.

Hallo,

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

Beispielcode:

markieren

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