Einzelnen Beitrag anzeigen

citybreaker
(Gast)

n/a Beiträge
 
#1

AppBar gibt Platz nicht mehr frei

  Alt 17. Jun 2004, 17:12
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?
  Mit Zitat antworten Zitat