Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.08.14;
Скачать: CL | DM;

Вниз

Как отобразить не главные окна своей программы в панели задач 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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.025 c
1-1122114667
Zoidberg
2005-07-23 14:31
2005.08.14
Как добавить куку в IE


1-1121941758
Ded Moroz
2005-07-21 14:29
2005.08.14
Проблема с плагинами


6-1114271763
Galiaf
2005-04-23 19:56
2005.08.14
Где лежит компонент "TServerSocket" & "TClientSocket"?


3-1120736124
serguncho
2005-07-07 15:35
2005.08.14
Базы данных и ресурсы.


3-1120564635
alex_***
2005-07-05 15:57
2005.08.14
получить результат выполнения dynamic sql кроме кода ошибки