Problem mit SHAppBarMessage

[CalganX]

Hi,
mit folgendem Source erstelle ich mir eine AppBar:

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
var
  aBuf: _AppBarData;
begin
  MSG_CBACK := RegisterWindowMessage('MSG_CBACK');

  aBuf.cbSize := sizeOf(_AppBarData);
  aBuf.hWnd := self.Handle;
  aBuf.uCallbackMessage := MSG_CBACK;
  aBuf.uEdge := ABE_TOP;

  SHAppBarMessage(ABM_NEW, aBuf);
end;

Mit
ShowMessage( SysErrorMessage(GetLastError) ); fange ich folgenden Fehler ab:

Zitat:

---------------------------
Project1
---------------------------
Klasse ist nicht vorhanden
---------------------------
OK
---------------------------

Hat da jemand eine Idee?

Chris

[Christian Seehase]

Moin Chris,

prüf' doch erst mal, ob SHAppbarMessage überhaupt einen Fehler verursacht hat (liefert dann false zurück).
Wenn nicht sagt GetLastError nichts brauchbares aus.

[CalganX]

Würde ich ja gerne, aber es ist kein Boolean, sondern ein Cardinal. Im PSDK steht:

Zitat von Das PSDK:

Return Value
Returns a message-dependent value. For more information, see the Microsoft Platform Software Development Kit (SDK) documentation for the appbar message sent.

Chris

[Christian Seehase]

Moin Chris,

Typecast

if not Boolean(SHAppbarMessage(...)) then

[CalganX]

*nein*

Naja. Also, lt. dieser Abfrage liegt es nicht an SHAppBarMessage...
Allerdings tut sich wie gesagt nichts. Das Formular "liegt" ganz normal da rum.

Ich geh jetzt mal davon aus, dass ich nichts machen muss (also z.B. Align = alTop oder so).

Chris

[Motzi]

Ganz so einfach ist es nicht..

du musst noch die Position mit ABM_SETPOS festlegen! Hier die Procedure die ich bei meinem X-Spy verwende:

Delphi-Quellcode:

procedure FillAppBarData(var aData: TAppBarData);
begin
  with aData do
  begin
    cbSize := SizeOf(TAppBarData);
    hWnd := MainForm.Handle;
    uCallbackMessage := WM_APPBAR;
    uEdge := ABE_TOP;
  end;
end;

procedure AddAppBar;
var
  aData: TAppBarData;
begin
  FillAppBarData(aData);
  SHAppBarMessage(ABM_NEW, aData);

  SystemParametersInfo(SPI_GETWORKAREA, 0, @aData.rc, 0);
  aData.rc.Bottom := aData.rc.Top + MainForm.Height;
  SHAppBarMessage(ABM_QUERYPOS, aData);
  SHAppBarMessage(ABM_SETPOS, aData);
  MainForm.aAppBarRect := aData.rc;
  MainForm.MoveToAppBarRect;
end;

[Christian Seehase]

Moin Zusammen,

ausserdem sollte man am Schluss ABM_REMOVE nicht vergessen, damit der Bereich wieder freigegeben wird.