ich will eine leiste einrichten wie die taskleiste, nur oben. nur wie krieg ich die form nach oben dass die auch die anderen programme nach unten schiebt?
hab auf
http://www.delphipraxis.net/internal...ghlight=appbar das hier gefunden
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);
..funktioniert aber nicht.
der wert "Data" is undefiniert..
kann mir jemand sagen wie ich so ne leiste erstellen kann?