Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.06.20;
Скачать: CL | DM;

Вниз

Какая функция работает с панелью иструментов???   Найти похожие ветки 

 
Bboy ©   (2002-04-21 08:01) [0]

Мне надо чтобы программа при загрузке убирала панель инструментов (в месте с систреем и ПУСКом???
Как это сделать???


 
Song ©   (2002-04-21 09:25) [1]

ShowWindow()


 
Bboy ©   (2002-04-21 10:12) [2]

И что???
Допустим под ButtonClick адо повесить.
Я прописал:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowWindow();
end;

Когда запускаю, он мне пишет Not enought actual parameters - ругается на ShowWindow(). Почему???



 
Song ©   (2002-04-21 10:22) [3]

:))

Естесно, нужны параметры, Вы хэлп по ней почитайте
Почему всё должно быть на блюдечке, а Вы сами ничего не должны сделать?


 
Bboy ©   (2002-04-21 13:20) [4]

Почитал я хелп.
Но наверно что-то не понял.
Исправил код следующим образом:

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowWindow(sw_hide,1);
end;

Когда нажимаю на кнопку, то ничего не происходит.




 
Song ©   (2002-04-21 14:04) [5]

Вот хэлп по функции:
BOOL ShowWindow(

HWND hWnd, // handle of window
int nCmdShow // show state of window
);

А где у Вас дискриптор панели задач? Это есть HWND
А вот SW_HIDE это и есть nCmdShow. А параметр этот у Вас почему-то стоит на первом месте.


 
Antipich   (2002-04-21 14:26) [6]

Значи так, вот всё на блюдечке. Убирая панель, приходится убирать кнопку "Пуск" отдельно, иначе ёе можно будет открыть с клавы. Вот код:
{убираем меню}
procedure TMenu_Imelka.Button1Click(Sender: TObject);
var
h: hwnd;
begin
h:= FindWindow("Shell_TrayWnd", Nil);//Hide taskbar
ShowWindow(h, SW_HIDE);
end;

{убираем пуск}
procedure TMenu_Imelka.Button3Click(Sender: TObject);
var
h: hwnd;
begin
h := FindWindowEx(FindWindow("Shell_TrayWnd", nil), 0, "Button", nil);
ShowWindow(h, 0);
Windows.SetParent(h, 0);
end;

{возвращаем меню}
procedure TMenu_Imelka.Button2Click(Sender: TObject);
var
h: hwnd;
begin
h := FindWindow("Shell_TrayWnd", Nil);//Show taskbar
ShowWindow(h, 1);
end;

{возвращаем пуск}
procedure TMenu_Imelka.Button4Click(Sender: TObject);
var
h: hwnd;
TaskWindow: hwnd;
begin
h := FindWindowEx(GetDesktopWindow, 0, "Button", nil);
TaskWindow := FindWindow("Shell_TrayWnd", nil);
Windows.SetParent(h, TaskWindow);
ShowWindow(h, 1);
end;


 
Bboy ©   (2002-04-21 17:49) [7]

ВО!!! Спасибо!!! Все работает!!!



Страницы: 1 вся ветка

Текущий архив: 2002.06.20;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.016 c
1-65049
Novarm
2002-06-09 18:26
2002.06.20
Как обращаться к буферу после считывания FileRead (SysUtils)


3-64913
BJValentine
2002-05-24 21:40
2002.06.20
Глаза к носу: MsSql


1-65111
QymL
2002-06-06 20:34
2002.06.20
вид кнопок в WinXP


3-64926
kay
2002-05-27 06:06
2002.06.20
Index


1-65083
Reticent
2002-06-10 16:08
2002.06.20
Sender?!