Побочный эффект WindowState := wsNormal;

[Shouldercannon]

Доброго времени суток!
Использую WindowState := wsNormal;, чтобы восстанавливать форму с панели задач, если форма свёрнута, но у этого свойства есть побочный эффект. Если форма развёрнута на весь экран, то wsNormal вызывает событие Свернуть в окно у формы. Можно ли этот момент как-то убрать?

[Vapaamies]

Наверное, ей нужно посылать SW_RESTORE через SendMessage или Perform.

[min@y™]

Если форма развёрнута на весь экран, то wsNormal вызывает событие Свернуть в окно у формы. Можно ли этот момент как-то убрать?

Ну, попробуй ещё

if WindowState = wsMaximized
  then // ....
  else; // ....

Наверное, ей нужно посылать SW_RESTORE через SendMessage или Perform.

Согласен. А если форма главная, то достаточно

Application.Restore();

[Shouldercannon]

min@y™, попробую Ваш способ. Сии манипуляции нужны для дочерних форм, не для главной.

[Shouldercannon]

Решение

procedure ShowForm(Form: Tform);
begin
  if Form.WindowState = wsNormal then
  begin
    Form.WindowState := wsNormal;
    Form.Show;
  end;
  if Form.WindowState = wsMinimized then
  begin
    ShowWindow(Form.Handle, SW_RESTORE);
    Form.Show;
  end;
  if Form.WindowState = wsMaximized then begin
    ShowWindow(Form.Handle, SW_MAXIMIZE);
    Form.Show;
  end;
end;

Проходит тестирование