AppBar gibt Platz nicht mehr frei

[citybreaker]

Hallo,

habe grad ein Tutorial zur AppBar gefunden und dierekt ausprobiert,
aleridngs ist der Platz noch immer für die Bar besetzt, so das ich
keine anderen programme mehr dahinbekomme. -.-

Delphi-Quellcode:

var
 Data: AppBarData;

procedure TMainFrm.Create..
begin
  Data.cbSize := SizeOf(TAppBarData);;
  Data.hWnd := MainFrm.Handle;
  Data.uCallbackMessage := WM_APP;
  Data.uEdge := ABE_TOP;

  Data.rc.Left := 0;
  Data.rc.Top := 0;
  Data.rc.Right := 200;
  Data.rc.Bottom := 50;

  if SHAppBarMessage(ABM_NEW, Data) = 0 then begin
    ShowMessage('AppBar konnte nicht registriert werden');
    exit;
   end;
   
  SHAppBarMessage(ABM_QUERYPOS, Data);
  SHAppBarMessage(ABM_SETPOS, Data);

  MainForm.BorderStyle := bsNone;
  MoveWindow(MainFrm.Handle, 0, 0, Screen.Width, 50, True);
end;

procedure TMainFrm.OnClose...
begin
  SHAppBarMessage(ABM_REMOVE, Data);
end;

So nun meine Frage wie geb ich den Berreich wieder für andere programme frei?

[Alexander]

Wird SHAppBarMessage(ABM_REMOVE, Data); auch wirklcih aufgerufen? Dann sollte er es auch freigeben...

[citybreaker]

Also ich hab da noch nen Button, wenn man drafu klickt passiert
  MainFrm.Close; Ich denke mal, dass das damit aufgerufen wird. Oder etwa nicht?!

[Alexander]

Eigentlich schon.
Ich habe mal in den Anhang eine kleine DEMO aus meinem AppBar-Programm (siehe HP) gepackt...

[citybreaker]

Ich hab das mal auf mein Programm überzogen, da es wunderbar klappt.
Alerdings wenn ich das Programm ein 2. mal Compil dann ist die Bar nicht
mehr oben OnTop sonder mittig auf meinem Bildschirm ausgerichtet.

[Alexander]

Irgendwo änderst du wohl die Position wieder um , das kann ja sonst nicht sein...
Wenn dein Programm nicht zu umfangreich ist, kannst du es ja mal online stellen

[citybreaker]

So habs mal hier reingepackt.

[Alexander]

Hier die korrigierte Version...
Du hast die konstante vergessen und das ProcessMessages. Jetzt funktioniert es...

Hat auch ne Zeit lang gedauert bis ich damals daraufgekommen bin, ein ProcessMessages einzubauen

[citybreaker]

Ah, vielen dank, jetzt klappt es. =)

[Alexander]

Nichts zu danken, waren ja keine 2 Minuten