![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Форма как отдельный процесс
Z © (2003-09-24 11:30:00)
Я програмно создаю форму несколько раз. Как сделать так, чтобы заголовок созданной формы появлялся на панели задач?
VMcL (2003-09-24 15:19:00) [1]
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;
willys (2003-09-24 11:46:00) [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;
Игорь Шевченко (2003-09-24 11:43:00) [3]
WS_EX_APPWINDOW