Форум: "Основная";
Текущий архив: 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.013 c
