Форум: "Основная";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];
ВнизПодскажите пожалуйста! Код TForm2.Create(nil) вовсе не помещает создаваемую форму на панель задач! (он ее помещает на РАБОЧИЙ СТОЛ) Найти похожие ветки
← →
y-soft (2002-03-04 22:55) [3]>lipskiy
Это не так. По умолчанию в Delphi не панели задач отображается окно приложения. Вот пример, как заставить отображается на панели задач любую форму приложения:
procedure TClientForm.FormCreate(Sender : TObject);
var
S : Longint;
begin
S := GetWindowLong(Handle, GWL_EXSTYLE);
S := S or WS_EX_APPWINDOW;
SetWindowLong(Handle, GWL_EXSTYLE, S);
S := GetWindowLong(Handle, GWL_STYLE);
S := (S or WS_POPUP) and not WS_CHILD;
SetWindowLong(Handle, GWL_STYLE, S);
end;
Кстати, в Delphi 1 на панели задач по умолчанию отображались все формы, что было весьма неудобно :)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c