AppBar mit SHAppBarMessage

[Alexander]

Hallo,
ich versuche gerade mein Form als AppBar darzustellen. Ich habe es jetzt geschafft, den "Platz" zu registrieren. Doch irgendwie will das Form da nicht rein gehen...
Hier mal mein Source:

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

Ich habe natürlich auch schon gesucht, doch da habe ich nur Source gefunden, mit dem man den Platz reservieren kann, also so ähnlich wie ich das gemacht habe....Oder habe ich was falsch gemacht?
Da muss es sicherlich noch eine Funktion geben, die das Form dann darein setzt, oder?
Vielen Dank schon mal für eure Hilfe!!
Alexander

[Motzi]

-> MoveWindow()

[Alexander]

Irgendwie ist das heute nicht mein Tag...vielleicht liegt, dass auch an der Hitz, nun ja es klappt nicht wirklich...
Es sieht so aus, als ob er das Fenster kurz als AppBar anzeigt und dann wieder an die alte Stelle geht...Keine ahnung warum.
Kannst du mir vielleicht ein Beispiel geben? Wäre nett

[Alexander]

OK habe es selber gerade herausgefunden:
Man muss vorher ein Application.ProcessMessages; ausführen lassen, dann klappt es.
Vielen Dank Motzi!!