Плавающее окошко - Общие вопросы Delphi

Маркъ · 31.03.2007, 09:53

В программе мне нужно реализовать плавающее окошко, я где-то (не помню уже где) нашёл такой метод реализации:

Код:

procedure THints.CreateParams(var Params: TCreateParams);

begin
  inherited CreateParams(Params);
  Params.WndParent := WS_EX_ToolWindow;
end;

Но вот незадача, код работает, но если запустить программу The Bat, и нажать получение почты появляется окошко с ходом процесса получения и при его сворачивании моё окошко сворачивается тоже и разворачивается вместе с ним.
Я не могу понять в чём ошибка. Подскажите пожалуйста.

dron-s · 31.03.2007, 13:56

попробуй на событии OnMouseMove повесить следующий код

Код:

ReleaseCapture;
Perform(WM_SYSCOMMAND, $F012, 0);

Маркъ · 02.04.2007, 18:42

Цитата:

Код:

ReleaseCapture;
Perform(WM_SYSCOMMAND, $F012, 0);

Все отлично, очень помогло.

31.03.2007, 09:53	#1
Маркъ Пользователь Регистрация: 02.02.2007 Сообщений: 32	Плавающее окошко В программе мне нужно реализовать плавающее окошко, я где-то (не помню уже где) нашёл такой метод реализации: Код: `procedure THints.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); Params.WndParent := WS_EX_ToolWindow; end;` Но вот незадача, код работает, но если запустить программу The Bat, и нажать получение почты появляется окошко с ходом процесса получения и при его сворачивании моё окошко сворачивается тоже и разворачивается вместе с ним. Я не могу понять в чём ошибка. Подскажите пожалуйста.

31.03.2007, 13:56	#2
dron-s Форумчанин Регистрация: 04.03.2007 Сообщений: 615	попробуй на событии OnMouseMove повесить следующий код Код: `ReleaseCapture; Perform(WM_SYSCOMMAND, $F012, 0);` Сайт о всех генераторах отчётов- статьи, исходники, постоянное обновление статей Первые шаги в FastReport Studio

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Всплывающее окошко	Micha	Помощь студентам	3	30.03.2008 13:58