这个窗体加载为何是错误的?

Question

本帖最后由 zz1001 于 2010-03-02 23:39:39 编辑

Answer 1

SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);这句一到Application.Run之前试试

Answer 2

SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
在
Application.Initialize;
之前，
Application.Handle还没有被创建，肯定会有问题的。

Answer 3

program Project1;uses
  Forms,windows;
  Unit1 in 'Unit1.pas' {Form1};{$R *.RES}Application.Initialize;//在这个之前还没有创建Application.Handle,肯定会报错的。
Application.CreateForm(TForm1, Form1);
SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
Application.Run;

Answer 4

经过测试，Delphi7program Project1;uses
  Forms,
  windows,
  Unit1 in 'Unit1.pas' {Form1};{$R *.res}
begin
  SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.代码是正确的，可以运行，SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
只要是放在了 Application.Run;  这句话的前边就是有效果的
我的 Form 上面什么也没有，与楼主不同的是：
多了一个 begin end.