两个问题求解

[odbc12345]

问题一：下面这句代码放在窗体的创建事件里有效果，但是放在按钮事件里没反映？怎么解决
procedure TForm1.Button2Click(Sender: TObject);
begin
SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
end;

问题二：一个无边框窗体，就是窗体设置为bsNone的时候，执行如下代码的时候，窗体缩小到开始菜单这里（屏幕的左下角），不是像正常窗体一样到任务栏，怎么解决？
procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.WindowState:=wsMinimized;
end;

[cohye]

不会，过来学习的。

[弘石]

第一个记得需要重写基类的CreateParams方法，代码写在这个方法里

[山东蓝鸟贵薪]

你也可以自己编写个窗体即可

[nm_wyh]

总结一下
第一个问题，用5楼的方法。重写窗体创建事件！CreateParams;(我以前做过，可行)
第二个问题。用3楼的方法。(应该可以,我没试过)

[odbc12345]

怎么没人知道吗？

[爱蹄子的羊头]

application.min**** 的才是最小化

[kaikai_kk]

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