Форум: "Основная";
Текущий архив: 2011.09.25;
Скачать: [xml.tar.bz2];
ВнизДеактивация формы при клике на popup-окне Найти похожие ветки
← →
LightGreen (2010-02-16 22:44) [0]Короче такая ситуация. Сделал Popup-окно по аналогии с THintWindow с той разницей, что оно при щелчке должно исчезать. В общем, всё замечательно, кроме того, что при нажатии мышкой основная форма деактивируется! Как это можно предотвратить?
Вот код:
TMyHintWindow = class(THintWindow)
protected
procedure WMNCHitTest(var Message: WMNCHitTest); message WM_NCHITTEST;
end;
procedure TMyHintWindow.WMNCHitTest(var Message: WMNCHitTest);
begin
with Message do
Message.Result := DefWindowProc(Handle, Msg, WParam, LParam);
end;
← →
LightGreen (2010-02-16 22:47) [1]Чтобы закрыть окно по щелчку код такой:
procedure TMyHintWindow.WMLButtonDown(var Message: TWMMouse); message WM_LBUTTONDOWN;
begin
Hide;
end;
Но это деактивирует главную форму приложения!
← →
Плохиш © (2010-02-16 23:48) [2]
> Но это деактивирует главную форму приложения!
Активируй её заново сам.
← →
LightGreen (2010-02-17 10:23) [3]>Активируй её заново сам.
Спасибо за совет, но это - костыль. А мне надо решить эту проблему как положено, без дёрганий фокуса.
← →
brother © (2010-02-24 06:01) [4]> это - костыль.
не согласен
> А мне надо решить эту проблему
заметь, тебе, а не нам...
> без дёрганий фокуса.
ты его уже дергаешь, хотя бы по клику...
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2011.09.25;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.004 c