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

Delphi-Quellcode:

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:

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.

:mrgreen: ;)

Chris

[Christian Seehase]

Moin Chris,

Typecast

Delphi-Quellcode:

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

:mrgreen:
;-)

[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.