Баг в цикле: программно развернуть - свернуть - восстановить окно

[chandrasecar]

Xarp, form2.hide скрывает форму совсем, делает ее невидимой и убирает с панели задач Виндоус закладку приложения. Мне же нужно чтобы приложение сворачивалось стандартным образом, т.е. закладка должна отображаться в панели задач. И для этого я использую:

PostMessage(MainForm.Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0);

Проблема то в другом - см. выше

[mihali4]

Проблема в неверном использовании PostMessage - "посылаю сам себе"...
Замените обработчики для главной формы:

procedure TMainForm.Button3Click(Sender: TObject);
begin
WindowState:=wsMinimized;
end;

procedure TMainForm.Button2Click(Sender: TObject);
begin
WindowState:=wsNormal;
end;

procedure TMainForm.Button1Click(Sender: TObject);
begin
WindowState:=wsMaximized;
end;

И все работает нормально.
Как я и говорил - это баг, но не Дельфи, а ваш

[chandrasecar]

Верно, если сделать с WindowState, то все нормально, но при wsMinimized приложение сворачивается нестандартным образом. Сарtion окна с кнопками висит над кнопкой Пуск Винды

[Пепел Феникса]

так скрывайте если надо...
а если надо свернуть прогу то Application.Minimize есть

[raxp]

...вернулись к тому с чего начали

почему у меня минимизируется без проблем... у вас версия delphi какая? (у меня 6)

[chandrasecar]

у меня 7. А про Application.Minimize я знаю, но от нее у меня другие проблемы. Всех благодарю за помощь.

[spamer]

Действительно странно все это как то...
Все события ловит, а вот именно повторно SC_MINIMIZE не ловится.
На счет Application.Minimize , тот же самый баг.

[raxp]

chandrasecar, может поясните народу, что вы делаете и хотите добиться...

зы: проверьте у себя, если вашей форме вернуть стиль-бордюр и caption, баг повториться?

UPD: вот есть еще один у кого нормально (пост #20)

[chandrasecar]

Ничего особенного. Только чтобы корректно работали функции изменения размеров окна. Пришлось на WindowState перейти временно. Но при значении wsMinimized форма сворачивается нестандартным образом. А если использовать Application.Minimize, а в остальных случаях WindowState, то происходят глюки с отображением др. форм приложения. Т.к. WindowState относится к главной форме, а Application ко всему приложению.

Для SPAMER:
Здесь компиляция с WindowState

[SERG1980]

У меня всё отлично работает

procedure TMainForm.Button3Click(Sender: TObject);
begin
  //MainForm.WindowState:=wsMinimized;
  PostMessage(Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
end;

procedure TMainForm.Button2Click(Sender: TObject);
begin
  //MainForm.WindowState:=wsNormal;
  PostMessage(Handle, WM_SYSCOMMAND, SC_RESTORE, 0);
end;

procedure TMainForm.Button1Click(Sender: TObject);
begin
  //MainForm.WindowState:=wsMaximized;
  PostMessage(Handle, WM_SYSCOMMAND, SC_MAXIMIZE, 0);
end;