Скачать: CL | DM;

Добрый день! Вот глюг с кнопками на таск баре. Поможите?   Найти похожие ветки 

← →
oduvan ©   (2002-08-14 08:57) [0]

При создании не модального окна из главной формы кодом:

Application.CreateForm(TWriteMail, WriteMail);
WriteMail.FSendName:=Var1;
WriteMail.FSendEmail:=Var2;
writemail.showmodal;
WriteMail.free;

В обработчике события onShow записано:

SetWindowPos(handle,HWND_NOTOPMOST,left,top,width,height,SWP_NOACTIVATE);
SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_APPWINDOW);

Создается новая форма с кнопкой на панели задачь.
При нажатии на кнопку таскбара родителя не получается переключится главную форму, происходит мигание новой вормы, такое ощущение, что форма модальная, хотя ведет себя как обычная (вызванная методом SHOW).
Что неправильно делаю?

---

← →
cdaDmitriy ©   (2002-08-14 09:22) [1]

так она и есть модальная writemail.showmodal;

---

← →
oduvan ©   (2002-08-14 10:08) [2]

Точно, забыл исправить, но если даже просто SHOW, работает как SHOW MODAL!!!!!

---

← →
cdaDmitriy ©   (2002-08-14 10:21) [3]

проверь !!!!!!!!!!!!!!!!!

---

← →
oduvan ©   (2002-08-14 10:41) [4]

Вот сейчас такой код:

Application.CreateForm(TWriteMail, WriteMail);
WriteMail.FSendName:=Var1;
WriteMail.FSendEmail:=Var2;
writemail.show;

на панели задачь кнопка от программы (1), когда я создаю форму кодом выше, то появляется еще одно кнопка (2), котороя создается кодом:

SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_APPWINDOW);

При нажатии на кнопку (1), происходит мигание дочерней форму, выше созданной, но нет перехода к главному окну, а если щелкнуть просто по главному окну, то переход пройдет, и главная станет активной!!! Вот в чем дело, надеюсь понятно.

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c