Скачать: CL | DM;

Как затенить кнопку закрыть   Найти похожие ветки 

← →
Viktop   (2005-02-21 19:48) [0]

Каким образом можно затенить кнопку закрыть в заголовке формы.

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) [1]

Обычно это делается так:

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
 inherited;
 Params.WindowClass.style := Params.WindowClass.style or CS_NOCLOSE;
end;

А как это будет выглядеть с твоим скином, ХВ.

---

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

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.023 c