// 这样一句就能搞定了 在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,或者设置成完全透明的窗体也行
调用一次,还是会闪一下,是因为界面失去焦点。任务栏会刷一下。