AppBar on Demand

[CalganX]

Hi,
hm... Ist nicht so ganz das Wahre.

Hab es aber gerade durch Zufall hinbekommen.
Im OnMouseEnter-Event (bzw. einem CM_MOUSEENTER-Messagehandler) muss für die Anzeige folgendes stehen:

Delphi-Quellcode:

  // Mouse enters form

  {bValue ist eine globale Boolean-Variable}
  if bVisible then Exit
  else bVisible := true;

  SHAppBarMessage(ABM_REMOVE, aAppBarData);

  self.Height := self.Tag;
  aAppBarData.rc.Bottom := self.ClientHeight;

  {Result ist ein lokaler Integer}
  result := SHAppBarMessage(ABM_NEW, aAppBarData);

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

  self.Width := screen.Width;

  SHAppBarMessage(ABM_QUERYPOS, aAppBarData);
  SHAppBarMessage(ABM_SETPOS, aAppBarData);
  Application.ProcessMessages;
  MoveWindow(aAppBarData.hWnd, aAppBarData.rc.Left, aAppBarData.Rc.Top,
    GetSystemMetrics(SM_CXSCREEN), aAppBarData.rc.Bottom, true);

  inherited;

Und für das Verstecken muss das OnDeactivate-Ereignis von Application verwendet werden:

Delphi-Quellcode:

  // Application loses focus

  SHAppBarMessage(ABM_REMOVE, aAppBarData);

  aAppBarData.rc.Bottom := 5;

  {Result ist ein lokaler Integer}
  result := SHAppBarMessage(ABM_NEW, aAppBarData);

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

  self.Width := screen.Width;

  SHAppBarMessage(ABM_QUERYPOS, aAppBarData);
  SHAppBarMessage(ABM_SETPOS, aAppBarData);
  Application.ProcessMessages;
  MoveWindow(aAppBarData.hWnd, aAppBarData.rc.Left, aAppBarData.Rc.Top,
    GetSystemMetrics(SM_CXSCREEN), aAppBarData.rc.Bottom, true);

  {bVisible ist ein globaler Boolean}
  bVisible := false;

Bei mir funktioniert's jetzt, auch wenn es noch ein bisschen Buggy ist.

Chris