窗口等待
来源:互联网 发布:vb中sum=0是什么意思 编辑:程序博客网 时间:2024/06/10 02:38
procedure ShowWaitWindow(TmpStr: string; Okay: Boolean);
var
Rect: TRect;
begin
if not Assigned(frm_Start) then
begin
if Okay then frm_Start := THintWindowEx.Create(Application)
else Exit;
end
else
if not Okay then begin frm_Start.Free; frm_Start := nil; Exit; end;
Rect.Left := Round((Screen.Width - 300) / 2);
Rect.Top := Round((Screen.Height - 150) / 2);
Rect.Right := Round((Screen.Width - 300) / 2) + 300;
Rect.Bottom := Round((Screen.Height - 150) / 2) + 60;
// frm_Start.Color := clSilver;
frm_Start.Color := $00B57F03;
frm_Start.ActivateHint(Rect, TmpStr);
frm_Start.BringToFront;
frm_Start.Repaint;
end;
type
THintWindowEx = class(THintWindow)
procedure Paint; override;
end;
frm_Start: THintWindow;
procedure THintWindowEx.Paint;
var
R: TRect;
begin
R := ClientRect;
Inc(R.Left, 2);
Inc(R.Top, 2);
Canvas.Font.Size := 10;
Canvas.Font.Name := '宋体';
Canvas.Font.Color := clWhite;
DrawText(Canvas.Handle, PChar(Caption), -1, R, DT_LEFT or DT_NOPREFIX or
DT_WORDBREAK or DrawTextBiDiModeFlagsReadingOnly);
end;
- 窗口等待
- 等待提示窗口
- 等待提示窗口
- 等待提示窗口
- winform启动等待窗口
- 简单的等待窗口
- 等待窗口线程关闭
- android(5) 等待窗口
- 页面等待窗口
- 小东西WinForm的等待窗口
- C#_WinForm的等待窗口
- 窗口加载时等待动画
- Jquery ajax 请求等待窗口
- backgroundWorker 等待窗口的实现(loading窗口)
- 页面提交时出现等待窗口示例
- 制作一个简单的等待窗口
- 制作一个简单的等待窗口
- 简单透明View的等待窗口
- 弄钱花
- Code Blocks帮助文件的配置
- failed due to the following error: 80070005解决办法
- 我学你也学之批处理命令篇--配置免安装mysql
- 系统程序员成长计划-算法与容器(三) (下)
- 窗口等待
- JPEG文件格式初探
- 特征提取
- I love CSDN.
- 大撒旦撒
- 帮朋友设计数据库时的一些想法
- 关于软件开发效率的思考
- 感谢 Ward, Wiki 14 岁了
- 第一眼看到Groovy,非常震撼