// 这样一句就能搞定了 在Form创建是调用
procedure TfrmWaitWindow.FormCreate(Sender: TObject); begin SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW); end;
相关方法1
Application.Initialize; Application.CreateForm(TForm1, Form1); Application.ShowMainForm := False; // 不显示主窗口 Application.Run;
这样调用一次,会刷屏闪烁一次。任务栏会刷一下。
相关方法2
procedure TForm7.FormCreate(Sender: TObject); begin Height := 0; Width := 0; // 这样任务栏里也不显示^_^ SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW); end;
如果只是为了不显示主窗体你还可以在formCreate事件里面把窗体设置为w=0,h=0,或者设置成完全透明的窗体也行
调用一次,还是会闪一下,是因为界面失去焦点。任务栏会刷一下。