Arbeiten mit AppBars

[CalganX]

Sogenannte AppBars sind bspw. Formulare, die an einer Deskseite sitzen und sich verhalten, wie die Taskleiste: es kann z.B. kein Fenster darüber liegen und es ist immer zu sehen.
Diese AppBar's lassen sich auch mit Delphi-Mitteln relativ einfach erzeugen. Im folgenden will ich das einmal kurz erklären.

Als erstes brauchen wir eine Variable vom Typ _AppBarData. Diese Variable enthält alle wichtige Informationen über die AppBar, die wir an Windows senden. Die Variable muss global bzw. ein Feld des Formulares sein, weil wir auf sie mehrmals im Programm zugreifen müssen.
Dann füllen wir dieses Record mit Daten:

Delphi-Quellcode:

uses {...}, ShellApi, {...};

{...}

type
  TfrmMain = class(TForm)
  {...}
  private
    fAppBarData: _AppBarData;
  {...}
  end;

const
  // Konstante, die als CallBack für die AppBar arbeitet
  WM_APPBARMSG = WM_USER + 1;

{...}

// bspw. im OnCreate-Ereignis des Formulares, welches als AppBar dienen soll
var
  iResult: integer;
begin
  // Größe der ganzen Struktur
  fAppBarData.cbSize := SizeOf(TAppBarData);
  // Handle des Formulares, das als AppBar dienen soll
  fAppBarData.hWnd := Self.Handle;
  // Callback-Message  
  fAppBarData.uCallbackMessage := WM_APPBARMSG;
  // Wo soll die AppBar sein?
  fAppBarData.uEdge := ABE_TOP;
  {Alternative Werte: ABE_BOTTOM, ABE_LEFT, ABE_RIGHT}

  // Rect für den reservierten Platz, wo keine Anwendung "hin darf"
  fAppBarData.rc.Left := 0;
  fAppBarData.rc.Right := 0;
  fAppBarData.rc.Top := 0;
  fAppBarData.rc.Bottom := self.ClientHeight;

Die letzten Zeilen Code zeigen den zu reservierenden Platz. Das Formular kann durchaus größer/kleiner sein (dann müsste bei rc.Bottom ein anderer Wert stehen). Allerdings würde das bewirken, dass der reservierte Platz nicht mehr dem Formular entspricht und es somit zu durchaus komischen Konstruktionen kommen kann.

Delphi-Quellcode:

  // AppBar erstellen
  iResult := SHAppBarMessage(ABM_NEW, fAppBarData);

  // Hat das Erzeugen geklappt?
  if iResult = 0 then
  begin
    ShowMessage('Die AppBar konnte nicht erzeugt werden. Unter Umständen existiert bereits eine AppBar an dieser Position.');
    Exit;
  end;

  // Formular genauso breit machen, wie Bildschirm
  self.Width := screen.Width;

  // Position abfragen und nochmal setzen
  SHAppBarMessage(ABM_QUERYPOS, fAppBarData);
  SHAppBarMessage(ABM_SETPOS, fAppBarData);
  // Nachrichtenschleife abarbeiten
  Application.ProcessMessages;
  // Bringt das Fenster an die gewünschte Position. Dazu werden die vorher festgelegten Werte verwendet.
  MoveWindow(aAppBarData.hWnd, fAppBarData.rc.Left, fAppBarData.Rc.Top,
    GetSystemMetrics(SM_CXSCREEN), fAppBarData.rc.Bottom, true);
end;

Die AppBar wurde nun erzeugt. Am Ende muss der reservierte Platz auf jedenfall wieder freigegeben werden:

Delphi-Quellcode:

// zum Beispiel im OnDestroy-Ereignis des Formulars
begin
  SHAppBarMessage(ABM_REMOVE, aAppBarData);
end;

Fertig ist die AppBar.

[Delphi-Freak]

Ein kleiner Fehler ist mir noch aufgefallen:
In der Zeile 20 im 2. Codeblock steht noch aAppBarData - gehört wahrscheinlich fAppBarData

Edit: Im 3. Codeblock steht auch noch aAppBarData

LG, Delphi-Freak

[Jonas]

Hi...also funzen tut das schon....nur meine frage ist, wie bekomm ich die Appbar anstatt nu oben, wo sie ist nach unten bzw. zu Seite?

Ist zwar gut und eigentlich relativ verständlich erklärt doch irgendwie bekomm ich das mit dem nach unten nicht hin

[CalganX]

Hi,
steht im SourceCode drin:

Delphi-Quellcode:

  // Wo soll die AppBar sein?
  fAppBarData.uEdge := ABE_TOP;
  {Alternative Werte: ABE_BOTTOM, ABE_LEFT, ABE_RIGHT}

Musst halt ABE_TOP ersetzen durch die jeweilige andere Position...

Chris

[Jonas]

Joa das hab ich ja auch gemacht dem entsprechend auf ABE_BOTTOM.....funktioniert jedoch nicht.

[Delphi-Freak]

Kommt sich die vielleicht mit der Tastleiste in die Quere?

[Jonas]

Ich denke nicht, naja hab keine ahnung wie das gehn soll!...Jemand ne idee?

[Delphi-Freak]

Hast du unten die Taskleiste?

[phlux]

soweit ich mich erinnern kann, kann es maximal nur eine appbar pro seite geben, wenn du unten also die taskbar hast, hast du schlechte karten

[Jonas]

Ne ich hab die Taskleiste anner Seite (links).

[Sanguis]

Guten Tag,
sorry das ich diesen älteren Beitrag jetzt hochhole. Aber ich hab da ein Problem was mit dem Beitrag zusammen hängt.
Undzwar versuch ich den Code hierraus zu verwenden, was im Prinzip auch wunderbar klappt.
Problem ist nur, das ich wohl den Explorer im Hintergrund brauche. Und den hab ich nicht. Ich habe also keinen Desktop und keine Taskleiste. Jetzt möchte ich trotzdem ein Fenster als Leiste oben "pinnen" können, die IMMER im Fordergrund ist. Wenn die explorer.exe im Hintergrund läuft, klappt das problemlos. Läuft sie nicht, bekomme ich die Meldung das schon eine AppBar an der Stelle läuft und sie deshalb nicht erzeugt werden kann.

Gibt es da trotzdem Möglichkeiten?

Gruß,
Andreas