AppBar programmieren

[MatthiasW]

Hallo,

ich hab den Code jetzt wie folgt abgeändert und nun wird das Formular links platziert aber Platz wird immernoch keiner reserviert:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  DAta.cbSize := SizeOf(TAppBarData);;
  Data.hWnd := Form1.Handle;
  Data.uEdge := ABE_LEFT;

  Data.rc.Left := 0;
  Data.rc.Top := 0;
  Data.rc.Right := 60;
  Data.rc.Bottom := 0;

  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);
  Application.ProcessMessages;
  MoveWindow(Data.hWnd, Data.rc.Left, Data.Rc.Top, Data.rc.Right,
             GetSystemMetrics(SM_CYSCREEN), true); 
end;

was kann den nu noch falsch sein?

Mfg Matthias

[edit=r_kerber]Delphi-Tags eingefügt! Mfg, r_kerber[/edit]