En el foro falta el botón "Gracias"...
Habia estado buscando esta información y me ha sido de gran utilidad el enlace que ha puesto nuestro compañero
roman.
Para aportar, les copio el siguiente código de ejemplo que encontré
aquí
Código Delphi
[-]
procedure TForm1.OnShow(Sender: TObject);
var Result : integer;
BarData : TAppBarData;
BarHeight : Integer;
begin
self.ClientWidth := Screen.Width;
BarHeight := 24;
with BarData do
begin
cbSize := SizeOf(BarData);
hwnd := self.Handle;
uCallBackMessage := WM_USER;
uEdge := ABE_TOP;
rc := Rect(0, 0, self.ClientWidth, BarHeight);
lParam := 0;
end;
Result := SHAppBarMessage(ABM_NEW, BarData);
if Result = 0 then
begin
ShowMessage('Unable to register AppBar.');
exit;
end;
SHAppBarMessage(ABM_QUERYPOS, BarData);
SHAppBarMessage(ABM_SETPOS, BarData);
with OWForm do
begin
Application.ProcessMessages;
SetWindowPos(Handle, HWND_BOTTOM, 0, 0, ClientWidth, BarHeight, SWP_NOREDRAW);
end;
end;
El borde del formulario está establecido como
bsNone
Saludos a todos...