Поиск
Вход
Последние темы
Счетчики
Перепечатка материалов (в любом виде) с данного сайта без письменного разрешения администратора запрещена.
Copyright ©2010-2011 Mine.ChudoForum.Ru - Все права защищены
Как запретить кнопку close в любом окне
Страница 1 из 1
Как запретить кнопку close в любом окне
автор den Ср Апр 20 2011, 09:19
Следующий пример запрещает кнопку закрытия (и пункт "закрыть" (close)
в системном меню) нужного нам окна (в данном случае Notepad).
procedure TForm1.Button1Click(Sender: TObject);
var
hwndHandle : THANDLE;
hMenuHandle : HMENU;
begin
hwndHandle := FindWindow(nil, 'Untitled - Notepad');
if (hwndHandle <> 0) then begin
hMenuHandle := GetSystemMenu(hwndHandle, FALSE);
if (hMenuHandle <> 0) then
DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
end;
end;
в системном меню) нужного нам окна (в данном случае Notepad).
procedure TForm1.Button1Click(Sender: TObject);
var
hwndHandle : THANDLE;
hMenuHandle : HMENU;
begin
hwndHandle := FindWindow(nil, 'Untitled - Notepad');
if (hwndHandle <> 0) then begin
hMenuHandle := GetSystemMenu(hwndHandle, FALSE);
if (hMenuHandle <> 0) then
DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
end;
end;
den- Модератор
- Сообщения : 36
Благодарности : 11 -
Страница 1 из 1
Права доступа к этому форуму:
Вы не можете отвечать на сообщения
» Исходники игр на Паскале
» Помогите разблокировать smartbuy micro CD.
» Исходники программ на Делфи для скачивания
» Как прошить телефон Nokia?
» Самопроизвольное отключение ноутбука
» МР3-плеер NEXX nf-810
» Как снять защиту от записи на MicroSD
» Как передавать большие файлы с одного компьютера на другой быстро?