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

Вниз

Как сделать, чтобы окно отображалось в таскбаре ??   Найти похожие ветки 

← →
Slava   (2002-04-05 06:33) [8]

1. Чтобы убрать отображение формы приложения с панели задач:
(Обычно в *.dpr перед Application.Run)

SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);

2. Чтобы показать кнопку главной формы приложеня на панели задач(потому что она особенная)

У формы в секции Public

procedure CreateParams(var Params: TCreateParams); override;
procedure WMSysCommand(var m: TMessage); message WM_SYSCOMMAND;

Реализация

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
end;

procedure TForm1.WMSysCommand(var m: TMessage);
begin
m.Result := DefWindowProc(Handle, m.Msg, m.wParam, m.lParam);
end;

3. Для всех остальных форм достаточно перекрыть CreateParams

PS Но кое-какие приколы все-таки остануться:
1. При Alt-Tab иконка показываются у всех форм та, которая Application.Icon
2. Осторожней нужно быть при создании модальных форм (сам увидешь)
3...

---

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

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

Наверх

Память: 0.44 MB
Время: 0.005 c