AppBar <- Wie richte ich das ein?

[thefuture]

ich will eine leiste einrichten wie die taskleiste, nur oben. nur wie krieg ich die form nach oben dass die auch die anderen programme nach unten schiebt?
hab auf http://www.delphipraxis.net/internal...ghlight=appbar das hier gefunden

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
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 := 0; 
Data.rc.Right := 0; 
Data.rc.Bottom := 20; 

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);

..funktioniert aber nicht.
der wert "Data" is undefiniert..

kann mir jemand sagen wie ich so ne leiste erstellen kann?

[mirage228]

wo und wie hast du "data" denn deklariert?

[sakura]

Du musst Data global (oder in der Klasse) definieren.

Delphi-Quellcode:

var
  Data: TAppBarData;

...:cat:...

[thefuture]

hab jez "Data: TAppBarData;" eingefügt
hier n ausschnitt von der unit:

Delphi-Quellcode:

var
  Form1: TForm1;
    Data: TAppBarData;

implementation

da kommt jez "uncleared identifier: 'TAppBarData' "

[Alexander]

Aber ich denke global ist wohl besser, da man ja überall vielleicht was an der AppBar ändern will ;-)
Aber muss jeder selber wissen...

[Alexander]

Du musst die Unit ShellAPI auch noch miteinbinden:
http://msdn.microsoft.com/library/de...appbardata.asp
ganz unten