Страница 1 из 1

Form'ы в Delphi

Добавлено: Пн фев 23, 2004 11:48
Vital
Опять трабла :)
Не знаю как сделать так, чтоб открывая форму в приложении у неё появлялась кнопка на панели задач(своя, не путать с кнопкой главной формы). Очень нужно

Добавлено: Пн фев 23, 2004 13:29
Белый С.
Vital, видимо через MDI (многодокументный интерфейс).

Добавлено: Пн фев 23, 2004 14:50
кондратий
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;

Добавлено: Пн фев 23, 2004 17:58
Vital
кондратий, спасибо.
Вот ещё один вариант:
вместо твоего

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

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

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

Params.WndParent := GetDesktopWindow();
и работает. Только не знаю на сколько корректно и чем отличается этот вариант от твоего? Но пока не глючил.

Добавлено: Пн фев 23, 2004 18:02
кондратий
Vital,
смена парента тебе может выйти боком... :ermm:

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