Re: Плавающее окно
От: Softwarer http://softwarer.ru
Дата: 28.10.04 07:17
Оценка: 5 (1)
Здравствуйте, frodo, Вы писали:

F> Делаю плавающее окно в приложении. Вроде все сделал. Осталось одно — при свертывании главного окна приложения автоматически исчезает и плавающее. Как сделать, чтобы это не происходило?


Тем или иным способом обойти функциональность VCL, которая это делает.

Собственно, минимизация приложения вызывается следующим кодом:

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))


Таким образом, минимизацию приложения вообще обойти нетрудно. Если нужно, чтобы сворачивалось все, кроме твоего окна — надо смотреть глубже. Возможно, потребуется имитировать процесс — то есть прятать все окна, кроме твоего..
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.