Показать сообщение отдельно
  #1  
Старый 26.10.2006, 16:16
Аватар для 4kusNick
4kusNick 4kusNick вне форума
Местный
 
Регистрация: 06.09.2006
Адрес: Россия, Санкт-Петербург
Сообщения: 444
Репутация: 550
Злость Application.Minimize не работает?!

Привет, проблема такова:

Есть форма, обычная такая, но без бордера: BorderStyle := bsNone (с другими бордерами тоже проблема такая же), есть панелька, на ней расположены две кнопки: закрыть и свернуть
При наджатии на закрыть все ок - вызывается метод Close для формы,
а вот при нажатии на свернуть, происходи нечто непонятное:
Код на кнопке такой :

Код:
procedure BtnOnClick...
begin

   Application.Minimize;

end;
Этот код не работает
Пробовал
Код:
ShowWindow(Handle,SW_MINIMIZE);
и
Код:
ShowWindow(Handle,SW_MINIMIZED);
В обоих случаях окно сворачивается, но не так, как надо (остается в левом нижнем углу маленький заголовок с названием программы и только при двойном клике на нем программа разворачивается)
Пробовал
Код:
SendMessage(Handle,WM_SYSCOMMAND,SC_MINIMIZE,0);
Вообще никакого эффекта, наверное из-за того, что не работает
Код:
SendMessage(Handle,WM_SYSCOMMAND,SC_MINIMIZE,0);
не работает и Application.Minimizе, т.к. в теле ApplicationMinimize присутствует такая вещь:
Код:
DefWindowProc(FHandle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
и во время отладки именна она и вызывалась...
Вобщем, если кто знает, подскажите, как апишными методами нормально свернуть окно не используя SC_MINIMIZE.

Спасибо.
__________________
THE CRACKER IS OUT THERE
Ответить с цитированием