SHAppBarMessage Problem

[Zeitkritiker]

Hab schon wieder ein Problem, dass im Forum angesprochen wurde und ich wieder nicht durchblicke. Und zwar habe ich folgenden code genommen:

Code:

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

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

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

nun möchte ich aber form1 in den freigegebenen platz auf den desktop haben. wie kann ich das machen. hab irgendwie gelesen mit MoveWindow() ? oder wie geht das?

[Zeitkritiker]

hat niemand eine antwort auf meine frage

[Alexander]

Jupp MoveWindow.
Z.B. so:
 MoveWindow(Data.hWnd, Data.rc.Left, Data.Rc.Top, GetSystemMetrics(SM_CXSCREEN), Data.rc.Bottom, true);

[Zeitkritiker]

es funktioniert einfach nicht. das fenster versucht zwar in den bereich zu 'springen' kehrt aber immer wieder zum alten platz zurück. was mache ich falsch? hier mal der komplette code:

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ShellAPI;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  result: integer;
  Data: TAppBarData;


implementation

{$R *.dfm}

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

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

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);
MoveWindow(Data.hWnd, Data.rc.Left, Data.Rc.Top, GetSystemMetrics(SM_CXSCREEN), Data.rc.Bottom, true);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
SHAppBarMessage(ABM_REMOVE, Data);
end;

end.

[Alexander]

BEvor du deine Form verschiebst, ruf mal Application.ProcessMessages auf.

[Zeitkritiker]

danke, jetzt geht es.