Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как поместить НЕ ГЛАВНЫЕ окна программы в панель задач? [D6, Win2k]


Martin ©   (2002-09-12 17:50:00) 

Не так давно был такой вопрос. Меня же интересует что то подобное, с той разницей только, что бы они не сворачивались при сворачивании главного окна. (примером может служить например окна бесед в ICQ).

Помогите кто знает.. плз...


Martin   (2002-09-12 19:42:00) [1]

2Ученик:

Спасиб большой...
Из двух примеров собрал именно то что хотел.... ))


Ученик   (2002-09-12 19:11:00) [2]

>Song © (12.09.02 19:03)

Это не поможет

procedure TCustomForm.WMSysCommand(var Message: TWMSysCommand);
begin
with Message do
begin
if (CmdType and $FFF0 = SC_MINIMIZE) and (Application.MainForm = Self) then
Application.WndProc(TMessage(Message))


Song   (2002-09-12 19:03:00) [3]

Установить его Parent на desktop.


Ученик   (2002-09-12 19:01:00) [4]

Для главного окна

procedure WMSysCommand(var Message : TWMSysCommand); message WM_SYSCOMMAND;

procedure TForm1.WMSysCommand(var Message : TWMSysCommand);
begin
if Message.CmdType = SC_MINIMIZE then
ShowWindow(Handle, SW_MINIMIZE)
else
inherited
end;


Наверх

Титульная страница Поиск, карта сайта Написать письмо