Frage bezüglich SHAppBarMessage/AppBar funzt nicht Richtig

[A-KI]

Servus

habe vor mir ein AppBar zu basteln. das mit dem Positionieren und danach wieder schließen klapp ja auch alles schon wunderbar, aber
sobald ich eine Surfbar starte springt die AppBar unter die surfbar und der platz wo die appbar vorher wird nicht benutzt.

bsp.

1. AppBar (20 Pixel)

nach start der surfbar

1. leer (20 Pixel)
2. Surfbar 60(Pixel)
3. Appbar (20 Pixel) es können aber andere Programme über die appbar gepackt werden.

hoffe ihr habt das bis jetzt alles so verstanden.

nun zu der frage.

wie bekomme ich es hin das die appbar obenbleibt und sich nicht unter die surfbar verschiebt????

hier mein bisheriger code

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
DAta.cbSize := SizeOf(TAppBarData);;
Data.hWnd := Self.Handle;
Data.uEdge := ABE_TOP;

Data.rc.Left := 0;
Data.rc.Top := 0;
Data.rc.Right := 0;
Data.rc.Bottom := 60;

result := SHAppBarMessage(ABM_NEW, Data);

if Result = 0 then
begin
  ShowMessage('AppBar konnte nicht registriert werden');
  exit;
end;

self.Width := screen.Width;
SHAppBarMessage(ABM_QUERYPOS, Data);
SHAppBarMessage(ABM_SETPOS, Data);
Application.ProcessMessages;
MoveWindow(Data.hWnd, Data.rc.Left, Data.Rc.Top, GetSystemMetrics(SM_CXSCREEN), Data.rc.Bottom, true);
end;

schonmal danke für eventuelle hilfen

[Christian Seehase]

Moin A-KI,

erst einmal herzlich willkommen hier in der Delphi-PRAXiS.

Ich habe so den Eindruck als ob die genannte Surfbar sich nicht daran hält, dass es nur eine Appbar je Rand geben darf, und einfach eine bestehende rausschmeisst.