Текущий архив: 2006.04.02;
Скачать: CL | DM;
Вниз
Проверка файла на "скрытый", отключение развёртывания. Найти похожие ветки
← →
WestBronx (2006-03-20 23:10) [0]Привет мастера, имеется 2 вопроса.
1. Подскажите, как проверить, стоитли у N"го файла, атрибут "Скрытый"?
2. Как отключить кнопку "Развернуть" в заголовке программы?
Нашёл такой код, но он для отключения "[x]".
Попробывал заменить SC_CLOSE на SC_MAXIMIZE, кнопка перестала работать, но не стала "серой".
procedure TForm1.FormCreate(Sender: TObject);
var
hwndHandle: THANDLE;
hMenuHandle: HMENU;
iPos: Integer;
begin
hwndHandle := FindWindow(nil, PChar(Caption));
if (hwndHandle <> 0) then
begin
hMenuHandle := GetSystemMenu(hwndHandle, FALSE);
if (hMenuHandle <> 0) then
begin
DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
iPos := GetMenuItemCount(hMenuHandle);
Dec(iPos);
{ Надо быть уверенным, что нет ошибки т.к. -1 указывает на ошибку }
if iPos > -1 then
DeleteMenu(hMenuHandle, iPos, MF_BYPOSITION);
end;
end;
end;
← →
tesseract © (2006-03-20 23:28) [1]в help -> windows SDK - смотрим GetFileAttributes/GetFileAttributesEx.
> 2. Как отключить кнопку "Развернуть" в заголовке программы?
Как я понял ты у своей формы кнопку отключаешь.
Не проще-ли выключить так:
Form1.borderIcons:=[]; - отключит всё
From1.borderIcons:=Form1.borderIcons-[biMaximise]; - только развёртывание.
← →
WestBronx (2006-03-20 23:32) [2]tesseract © (20.03.06 23:28) [1]
неизветный индефикатор на biMaximise =/
← →
WestBronx (2006-03-20 23:34) [3]WestBronx (20.03.06 23:32) [2]
А, опечатка у вас %) Спасибо ;)
Страницы: 1 вся ветка
Текущий архив: 2006.04.02;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.04 c
