模拟用鼠标点击窗体最小化按钮
比如，我下面代码是点击Button2,然后在Button2实现Button1的点击事件
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := 'wudong';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Button1.OnClick(self); //
end;
怎样实现点击Button2，窗体就最小化，不要用sendMessge()..和windstate = csMinine，Application.Minine等。。
我就想模拟用鼠标点击最小化按钮。
谢谢了。。
[解决办法]
用CloseWindows（）这个API函数就可以了
[解决办法]
不要用sendMessge?恐怕没有几个人会跟你说了
[解决办法]
在Windows 里面讨生活，你不用sendMessage？
说明你还是幼稚啊，在Windows 里面，一切都是
消息驱动的。建议你改改思路。
[解决办法]
重载syscommand消息。自己编写消息，响应按钮的点击事件
