Al Minimizar app me la deja pequeña encima de la Barra de tareas

[GerTorresM]

Hola a todos:

Mi app tienes todos los botones en la barra del menu superior Minimizar, maximar y cerrar pero al dale click en el boton de minimizar siempre la app queda en la parte superior de la barra de tareas como se puede apreciar en la grafica adjunta, ahora si utilizo la tecla rápida (ventana) + M, la aplicación se minimiza en forma correcta, utilizo el siguiente código y le agradezco cualquier comentario

Código Delphi [-]
procedure TFMenu.WMSysCommand(var Msg: TWMSysCommand);
begin
  if (Msg.CmdType = SC_Minimize) then
  begin
    Application.Minimize;
    Application.MainForm.Hide;
  end else if (Msg.CmdType = SC_RESTORE) then
    begin
      Application.MainForm.Show;
      application.BringToFront;
      Application.Restore;
    end;
  DefaultHandler(Msg);
end;

Cordialmente



gertorresm
Colombia

[GerTorresM]

Esta solución la tome de este link http://www.clubdelphi.com/trucos/imprimir.php?id=69 y quedo solucionado mi problema asi

Código Delphi [-]

procedure TFMenu.WMSysCommand(var Msg: TWMSysCommand);
begin
  if (Msg.CmdType = SC_Minimize) then
    MinimizarTodo
  else if (Msg.CmdType = SC_RESTORE) then
    ResturarTodo;
  DefaultHandler(Msg);
end;


procedure TFMenu.MinimizarTodo;
begin
  keybd_event(VK_LWIN,MapvirtualKey( VK_LWIN,0),0,0) ;
  keybd_event(Ord('M'),MapvirtualKey(Ord('M'),0),0,0);
  keybd_event(Ord('M'),MapvirtualKey(Ord('M'),0),KEYEVENTF_KEYUP,0);
  keybd_event(VK_LWIN,MapvirtualKey(VK_LWIN,0),KEYEVENTF_KEYUP,0);
end;

procedure TFMenu.ResturarTodo;
begin
  keybd_event(VK_LWIN, MapvirtualKey( VK_LWIN, 0), 0, 0);
  keybd_event(VK_SHIFT, MapvirtualKey( VK_SHIFT, 0), 0, 0);
  keybd_event(Ord('M'), MapvirtualKey( Ord('M'), 0), 0, 0);
  keybd_event(Ord('M'),MapvirtualKey(Ord('M'),0),KEYEVENTF_KEYUP,0);
  keybd_event(VK_SHIFT,MapvirtualKey(VK_SHIFT,0),KEYEVENTF_KEYUP,0);
  keybd_event(VK_LWIN,MapvirtualKey(VK_LWIN,0),KEYEVENTF_KEYUP,0);
end;

[Casimiro Notevi]

Gracias por comentarlo