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

Форма как отдельный процесс   Найти похожие ветки 

← →
Z   (2003-09-24 11:30) [0]

Я програмно создаю форму несколько раз. Как сделать так, чтобы заголовок созданной формы появлялся на панели задач?

---

← →
Игорь Шевченко ©   (2003-09-24 11:43) [1]

WS_EX_APPWINDOW

---

← →
willys ©   (2003-09-24 11:46) [2]


procedure Form1.FormCreate(Sender: TObject);
var
ExSt: Cardinal;
begin
ExSt := GetWindowLong(Handle, GWL_EXSTYLE);
ExSt := ExSt or WS_EX_APPWINDOW;
SetWindowLong(Handle, GWL_EXSTYLE, ExSt);
end;


---

← →
VMcL ©   (2003-09-24 15:19) [3]

2 >willys © (24.09.03 11:46) [2]
Логичней через procedure CreateParams(var Params: TCreateParams); override; (protected)

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
end;

---

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

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



Память: 0.45 MB
Время: 0.014 c