Форум: "Основная";
Текущий архив: 2005.08.14;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Term ©   (2005-07-26 15:34) [0]

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

---

← →
Чапаев ©   (2005-07-26 15:38) [1]

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

---

← →
Term ©   (2005-07-26 15:56) [2]

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

---

← →
Term ©   (2005-07-26 16:36) [3]

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

---

← →
Lexer ©   (2005-07-26 16:46) [4]

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

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

---

← →
Чапаев ©   (2005-07-26 16:51) [5]

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

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

---

← →
Юрий Зотов ©   (2005-07-26 17:20) [6]

> Чапаев ©   (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;


---

← →
Term ©   (2005-07-26 17:24) [7]

спасибо всем

---

← →
Чапаев ©   (2005-07-26 17:35) [8]

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

---

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

Форум: "Основная";
Текущий архив: 2005.08.14;
Скачать: [xml.tar.bz2];

Наверх

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