| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как отобразить не главные окна своей программы в панели задач Win [D6, Win2k]

Term ©   (2005-07-26 15:34:00) 

Как отобразить не главные окна своей программы в панели задач Windows

---

Чапаев   (2005-07-26 17:35:00) [1]

> RecreateWnd
Ах, воооооооот оно как! Ну спасибище!

---

Term   (2005-07-26 17:24:00) [2]

спасибо всем

---

Юрий Зотов   (2005-07-26 17:20:00) [3]

> Чапаев ©   (26.07.05 16:51) [5]

type
 TForm2 = class(TForm)
   procedure FormClose(Sender: TObject; var Action: TCloseAction);
   procedure FormDblClick(Sender: TObject);
 private
   FAppWnd: boolean;
 protected
   procedure CreateParams(var Params: TCreateParams); override;
 end;

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
 inherited;
 if FAppWnd then
   Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Action := caFree
end;

procedure TForm2.FormDblClick(Sender: TObject);
begin
 FAppWnd := not FAppWnd;
 RecreateWnd
end;


---

Чапаев   (2005-07-26 16:51:00) [4]

> В FormCreate запиндюриваешь вот это:
Это не есть правильно. Лучше перекрыть CreateParams.

А вот если стиль менять во время работы, то кнопка на панели задач не появляется/прячется... :-(

---

Lexer   (2005-07-26 16:46:00) [5]

Term: Тебе ведь Чапаев дал ответ [1].
В FormCreate запиндюриваешь вот это:

SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_APPWINDOW);

---

Term   (2005-07-26 16:36:00) [6]

есть кто живой

---

Term   (2005-07-26 15:56:00) [7]

можно примерчик

---

Чапаев   (2005-07-26 15:38:00) [8]

Добавить стиль WS_EX_APPWINDOW.

---

Наверх