一个关于 在form最小化时绘制form的小技巧.MS提供,但本人试了一下.为何不好使???????有兴趣进来一下

Question

你上面写的是子窗体最小化时发生的事件
你在Application.OnMin...中写

Answer 1

这是MS网站上的原文.
你可试试下面的
procedure WndProc(var Message: TMessage); override;
procedure TForm1.WndProc(var Message: TMessage);
begin
  inherited WndProc(Message);
  case message.Msg of
     WM_NCPAINT:
     begin
       if IsIconic(hwnd) then
          Text = 'Form minimized'
       else
          Text = 'Form not minimized';
     end;
  end;
end;另:我想每个form缩到下面后都画,用Application不行吧?繁请兄台明释

Answer 2

If you set the class icon to NULL

Answer 3

If you set the class icon to NULL!
如何实现啊?
有具体点的代码吗?

Answer 4

估计你没用set the class icon to NULL吧
这是在创建窗口类时赋值的
你可以自己注册一个窗口类，然后自己建立一个窗口
这样应该就可以了比如：
var
  wClass:TWndClass;with wClass do
  begin
    hIcon := nil;  
    hCursor := LoadCursor(0, IDC_ARROW);
    hbrBackground := COLOR_BTNFACE + 1;
    style := CS_VREDRAW + CS_HREDRAW;
    lpfnWndProc := @frmMainWindowProc;
    lpszClassName := AClassName;
  end;
  RegisterClass(win.wClass);
  win.hMain := CreateWindowEx(0, AClassName, ACaption,
    (WS_VISIBLE or WS_OVERLAPPEDWINDOW) and (not WS_THICKFRAME),
    ALeft, ATop, AWidth, AHeight, 0, 0,
    Win.wClass.hInstance,
    nil);