教主,你就从了吧:delphi 中怎么在状态栏中 变色

来源：百度文库 编辑：中科新闻网 时间：2024/04/27 23:47:17
别的软件发生了什么变化.如果你最小化的时候
他就会变色 来提示你 用事情发生了
delphi中怎么实现呢?

你是想让自己的程序在最小化时，在任务栏里闪烁吧。

procedure FlashMe;
var
FWinfo: TFlashWInfo;
begin
FWinfo.cbSize := SizeOf(FWinfo);
FWinfo.hwnd := Application.Handle;
FWinfo.dwflags := FLASHW_ALL or FLASHW_TIMERNOFG;
FWinfo.ucount := 0;
FWinfo.dwtimeout := 0;
FlashWindowEx(FWinfo);
end;

调用FlashMe就行了
procedure TForm1.Button1Click(Sender: TObject);
begin
FlashMe;
end;

不知所云.最小化了还成看见状态栏啊??是不是任务栏啊
那要发送消息.再重绘或刷新.也许有这样的winapi自己查吧,不过看来你基础太差,还是从基础开始吧

delphi 中怎么在状态栏中 变色 在Delphi中，怎么查找字符串？ 怎么在DELPHI中运行DOS命令 vf 中怎么 创建 状态栏 vc++ 在窗口中添加状态栏？ Delphi中: 怎么在DELPHI程序中执行DOS命令 怎么在DELPHI程序中执行DOS命令 怎么在DELPHI程序中执行DOS命令 怎么在DELPHI程序中执行DOS命令