Hi,
ich habe tagelang mit die
MSDN durchgelesen und die
DP durchwühlt, bin aber nicht wirklich weiter...
Ich habe 2 Fragen zur TAppbar:
1. wenn ich das alles mit dem unten stehenden Code mache, bekomme ich die Fehlermeldung "Undefinierter Bezeichner: TAppBar" bei "Data.uCallbackMessage := WM_APPBAR;", das kann ich aber einfach löschen und dann gehts...braucht man diese Zeile, wenn ja für waS?
2. wie docke ich unten am bildschirm an?
viele grüße
flo
und wie versprochen hier noch der Code (ist ziemlich der selbe wie der überall hier gepostete):
Delphi-Quellcode:
var
Result : Integer;
begin
DAta.cbSize := SizeOf(TAppBarData);;
Data.hWnd := Form1.Handle;
Data.uCallbackMessage := WM_APPBAR;
Data.uEdge := ABE_TOP;
Data.rc.Left := 0;
Data.rc.Top := screen.WorkAreaTop;
Data.rc.Right := 0;
Data.rc.Bottom := screen.WorkAreaTop+65;
result := SHAppBarMessage(ABM_NEW, Data);
if Result = 0 then
begin
ShowMessage('AppBar konnte nicht registriert werden');
exit;
end;
SHAppBarMessage(ABM_QUERYPOS, Data);
SHAppBarMessage(ABM_SETPOS, Data);