Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.02.29;
Скачать: CL | DM;

Вниз

DynamicSkinForm VCL   Найти похожие ветки 

 
Ron   (2004-02-16 08:30) [0]

Народ! Может кто-нить использовал компоненты DynamicSkinForm VCL? Найти их можно на http://www.almdev.com/main/downloads.htm .
Так вот вопрос: какая есть альтернатива этому коду?

procedure TForm2.CreateParams(VAR Params: TCreateParams);
begin
Inherited CreateParams(Params);
Params.WndParent := GetDesktopWindow;
Params.ExStyle := Params.ExStyle or WS_Ex_AppWindow;
end;

Дело в том, что этот код не срабатывает до конца... Да, форма имеет свою кнопку на панели задач, но! Она минимизируется не на понель, а сверху...
А еще вот это не работает:
ShowWindow(Handle,1);
или
ShowWindow(Handle,Sw_show);

Вернее работате, но не так. Получается, что эта процедура аналог Form2.Show. При вызове форма должна восстановиться, но она не хочет. Я пробывал все команды из help"a (Sw_), как мне решить эту проблему?
Заранее благодарен....


 
dr Tr0jan ©   (2004-02-16 12:14) [1]

Я юзал, только вот не могу понять, что ты хочешь сделать?


 
nazgul   (2004-02-16 12:22) [2]

Кстате в этих компонентах много из стандартных функций неработает.


 
dr Tr0jan ©   (2004-02-16 15:14) [3]

>Кстат е в этих компонентах много из стандартных функций неработает.

Также как и в TXPManifest :)


 
Ron   (2004-02-16 15:59) [4]

Если в этих компонентах много работает нет так, как везде, то как сделать, чтобы формы имели свои кнопки на панели задач и минимизировальсь не поверх панели задач, а "в неее". (Я имею виду как сделать это с использованием DynamicSkinForm VCL ).

> dr Tr0jan
> Я юзал, только вот не могу понять, что ты хочешь сделать?

Я хочу полностью минимизировать НЕ главное окно своей программы на панель задач (при этом это окно должно иметь там свою кнопку).

А еще мне интересно, как потом востановить эту форму, т.к.
ShowWindow(Handle,Sw_show);
не работает...


 
Ron   (2004-02-16 22:01) [5]

Вот! Я вроде разобрался... вроде...
Короче у этих компонентов есть свои процедуры сворачивания и востановления. Так например нажимая "свернуть" в заголовке окна, форма минимизируется поверх пнели... А если написать:
ShowWindow(Handle,sw_minimize);
то форма нормально минимизируется и соответственно ее можно легко вызвать...
Стал другой вопрос: как перехватить нажатие на кнопку "свернуть"? Перехват WM_SYSCOMMAND не катит (вернее не срабатыват)....


 
Defunct ©   (2004-02-17 00:47) [6]

> как перехватить нажатие на кнопку "свернуть"?
Посмотреть, под отладкой, что выполняется в ветке WndProc при прижатии на кнопку.

Неохота искать? можно отлавливать
OnResize
Если форма сворачивается "по-своему", значит меняет размер. Ну вот и ловить размер типа:
if height<Minimal Then ShowWindow(Handle,sw_minimize);



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

Текущий архив: 2004.02.29;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.021 c
14-94189
_none_
2004-02-05 15:41
2004.02.29
лучше боулинг -)


11-93821
=Sniper=
2003-06-14 17:13
2004.02.29
В VCL работает правильно, а в KOL неправильно


1-93962
neteditor
2004-02-18 17:50
2004.02.29
Наследование TForm: Resource not found


14-94143
heady
2004-02-02 20:40
2004.02.29
Delphi 7 Help


11-93827
=Sniper=
2003-06-14 19:54
2004.02.29
Copyto(from)Clipboard есть ли в КОЛ что-то похожее??