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

CreateForm с параметром Hide   Найти похожие ветки 

← →
Turbid ©   (2004-05-28 13:26) [0]

Мне нужно чтобы программа при запуске пряталась из панели задач.
Для этого я использую при событии CreateForm Form.Hide, но она не прячется, хотя если Form.Hide привязать к нажатию кнопки, то все работает нормально. В чем проблемма?

---

← →
Петров Денис ©   (2004-05-28 13:29) [1]

Из панели задач или с экрана?

---

← →
Turbid ©   (2004-05-28 13:31) [2]

С экрана прячется Apllication.Minimize - тут все нормально. А с панели не хочет.

---

← →
Петров Денис ©   (2004-05-28 13:35) [3]

перегрузи у формы CreateParams, и в ней отключи доп. стиль WS_EX_APPWINDOW

---

← →
Turbid ©   (2004-05-28 13:38) [4]

Извини, но как это "прегрузи CreateParams"?

---

← →
VMcL ©   (2004-05-28 13:50) [5]

>>Turbid ©  (28.05.04 13:38) [4]

TForm1 = class(TForm)
// ...
protected
 procedure CreateParams(var Params: TCreateParams); override;
end;

---

← →
Петров Денис ©   (2004-05-28 13:55) [6]

Сорри, прогнал.
Точнее, тебе надо изменить доп. стиль у окна приложения, что-то вроде этого:

procedure TForm1.FormCreate(Sender: TObject);
var
 Long: Integer;
begin
 Long := GetWindowLong(Application.Handle, GWL_EXSTYLE);
 Long := Long or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW;
 SetWindowLong(Application.Handle, GWL_EXSTYLE, Long);
end;


---

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

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



Память: 0.46 MB
Время: 0.024 c