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