Как затенить кнопку закрыть [D7, WinXP]
Viktop © (2005-02-21 19:48:00)
Каким образом можно затенить кнопку закрыть в заголовке формы.
procedure TForm1.FormCreate(Sender: TObject);
var hMenuHandle:HMENU;
begin
hMenuHandle := GetSystemMenu(Handle, FALSE);
IF (hMenuHandle <> 0) THEN
DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
end;
Этот код не работает, т.к. я использую компонент AlphaSkins,
который меняет внешний вид формы. Или можно попробовать обработать
событие onClose (но чтобы форма не закрывалась). Подскажите как это
сделать.
a.denisov (2005-02-21 20:39:00) [1]
Обычно это делается так:
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.WindowClass.style := Params.WindowClass.style or
CS_NOCLOSE;
end;
А как это будет выглядеть с твоим скином, ХВ.
Наверх 
ЧАТ |
Орешник |
|
