Hallo,
ich programmiere eine AppBar aber irgendwie hab ich probleme für mein Fenster Platz auf dem Bildschirm zu reservieren. Ich benutze bis jetzt folgenden code welcher mir eigentlich den Platz reservieren sollte der aber nicht funktioniert:
Delphi-Quellcode:
procedure TForm1.RegisterAppBar();
var
Result : Integer;
begin
DAta.cbSize := SizeOf(TAppBarData);;
Data.hWnd := Form1.Handle;
Data.uCallbackMessage := WM_APPBAR;
Data.uEdge := ABE_LEFT;
Data.rc.Left := 0;
Data.rc.Top := 0;
Data.rc.Right := 26;
Data.rc.Bottom := 400;
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(Form1.Handle,0,0,26,400,True);
end;
diese funktion rufe ich im Show - Event des Forms auf. Aber nix passiert. Kann mir jemand nen tipp geben was ich falsch mache? Ich habe hier schon gesucht aber die Ergebnisse haben leider nicht dazu beigetragen das es funktioniert.
Gibts da vielleicht ein Tutorial oder ein Sample wie diese Funktion SHAppBarMessage zu handhaben ist?
Danke für eure Hilfe
Mfg Matthias
[edit=r_kerber]Delphi-Tags eingefügt Mfg, r_kerber[/edit]