Привет, проблема такова:
Есть форма, обычная такая, но без бордера: 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.
Спасибо.