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?