Панель поверх всех окон

[cargo29]

Нужно убрать галочку в свойствах панель что бы не отображалась поверх всех окон, и потом так же поставить как это осуществить программно:::??
нашел функцию но разобраться не могу SHAppBarMessage uses ShellApi

[p51x]

http://www.google.ru/search?client=o...hannel=suggest

[FaTaL]

Как то Вы не по русски вопрос написали. Напишите понятным русским языком.

[cargo29]

Сообщение от p51x

http://www.google.ru/search?client=o...hannel=suggest

это да но нету примера и обьяснения толком как убирать галочки в свойствах панели

Сообщение от FaTaL

Как то Вы не по русски вопрос написали. Напишите понятным русским языком.

на скрине будет выделено, мне надо с помощью этой функции убирать эту галочку и ставить обратно

[p51x]

http://msdn.microsoft.com/en-us/libr...79(VS.85).aspx

[cargo29]

Сообщение от p51x

http://msdn.microsoft.com/en-us/libr...79(VS.85).aspx

Это я читал а можно пример кода????
вот это не работает

procedure TForm1.Button6Click(Sender: TObject);
var
 FABD: TAppBarData;
begin
FABD.cbSize:=SizeOf(FABD);
FABD.hWnd:=FindWindow('Shell_TrayWnd',nil); //тут хендл панели задач, как я понял
//далее выбирай нужное:
//FABD.lParam:=0;//Autohide and always-on-top both off
//FABD.lParam:=ABS_ALWAYSONTOP;//Always-on-top on, autohide off
FABD.lParam:=ABS_AUTOHIDE;//Autohide on, always-on-top off
//FABD.lParam:=ABS_AUTOHIDE or ABS_ALWAYSONTOP;//Autohide and always-on-top both on
SHAppBarMessage(ABM_GETSTATE, FABD);
end;

[grafgrial]

может нужно просто скрыть ее

ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_HIDE); //Скрыть TaskBar

потом показать

ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_SHOW); // Показать Taskbar

[cargo29]

Сообщение от grafgrial

может нужно просто скрыть ее

ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_HIDE); //Скрыть TaskBar

потом показать

ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_SHOW); // Показать Taskbar

НЕТ!!!!!!!! ОСТАЕТСЯ ПУСТОЕ ПЕСТО ОТ ПАНЕЛИ