Form'ы в Delphi

Модератор: Злобный

Ответить
Аватара пользователя
Vital
Продвинутый
Сообщения: 558
Зарегистрирован: Вт янв 28, 2003 10:21
Контактная информация:

Form'ы в Delphi

Сообщение Vital »

Опять трабла :)
Не знаю как сделать так, чтоб открывая форму в приложении у неё появлялась кнопка на панели задач(своя, не путать с кнопкой главной формы). Очень нужно
Аватара пользователя
Белый С.
Завсегдатай
Сообщения: 2526
Зарегистрирован: Пн дек 22, 2003 22:43
Откуда: Выведен из аксиом
Контактная информация:

Сообщение Белый С. »

Vital, видимо через MDI (многодокументный интерфейс).
кондратий
Юзер
Сообщения: 92
Зарегистрирован: Вт авг 20, 2002 17:12
Откуда: кишинёв
Контактная информация:

Сообщение кондратий »

type
TForm2 = class(TForm)
private
{ Private declarations }
procedure CreateParams(VAR Params: TCreateParams); override;
...
procedure TForm2.CreateParams(VAR Params: TCreateParams);
begin
Inherited CreateParams(Params);
WITH Params DO
ExStyle := ExStyle OR WS_EX_APPWINDOW;
end;
Аватара пользователя
Vital
Продвинутый
Сообщения: 558
Зарегистрирован: Вт янв 28, 2003 10:21
Контактная информация:

Сообщение Vital »

кондратий, спасибо.
Вот ещё один вариант:
вместо твоего

Код: Выделить всё

WITH Params DO 
ExStyle := ExStyle OR WS_EX_APPWINDOW; 
поставил

Код: Выделить всё

Params.WndParent := GetDesktopWindow();
и работает. Только не знаю на сколько корректно и чем отличается этот вариант от твоего? Но пока не глючил.
кондратий
Юзер
Сообщения: 92
Зарегистрирован: Вт авг 20, 2002 17:12
Откуда: кишинёв
Контактная информация:

Сообщение кондратий »

Vital,
смена парента тебе может выйти боком... :ermm:
Аватара пользователя
Vital
Продвинутый
Сообщения: 558
Зарегистрирован: Вт янв 28, 2003 10:21
Контактная информация:

Сообщение Vital »

кондратий, ок поменяю :) Посмотри в тему "опять почта", там есть ещё один вопрос, может быть ты его разрешал когда нить
Ответить

Вернуться в «Программирование»