十万火急：最小化窗体时，不让窗体标题栏在任务栏显示，下面的代码怎么不能实现？？？

Question

procedure TfrmMain.FormResize(Sender: TObject);
begin
  if frmMain.WindowState=wsMinimized then begin
     showwindow(Handle,sw_hide);
  end;
end;

Answer 1

ShowWindow(Application.Handle,SW_SHOW);
        Application.Restore;
        Application.BringToFront;
  Application.Minimize;
  ShowWindow(Application.Handle,SW_HIDE);

Answer 2

  Application.Minimize;
  ShowWindow(Application.Handle,SW_HIDE);

Answer 3

不行啊，最小化时，FormResize事件根本捕捉不到

Answer 4

ShowWindow(Application.Handle,SW_HIDE);          hide
ShowWindow(Application.Handle,SW_show);          show

Answer 5

自己捕捉WS_MINIMIZE消息,自己处理,很简单的

Answer 6

WMSYSCOMMAND(var message: TMessage); message WM_SYSCOMMAND;
SetWindowLong();
这两个应该可以解决你的问题了!

Answer 7

处理系统控制菜单的声明如下
public
   procedure dominimize(var message:TMessage);message wm_syscommand;实现过程如下：procedure TForm1.dominimize(var message:TMessage);
begin
  inherited;
  if message.WParam=sc_icon then
  showwindow(application.handle,sw_hide);
end;