如何让窗体的标题条闪烁？

Question

BOOL FlashWindow(
    HWND hWnd, // handle to window to flash  
    BOOL bInvert  // flash status 
   );

Answer 1

比如让文字从一边进一边出，
加TIMER
设置if len(str)>80 then
str='123';
str=' '+str;
等；
如果变色：
if b=1 then
begin
form1.color:=;
b:=0;
end;
if b=0 then
begin
form1.color:=;
b:=1;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
  form2.show;
  form2.BringToFront;
  Timer1.Interval:=GetCaretBlinkTime;
  Timer1.Enabled:=Not Timer1.Enabled;    //Timer1预设enabled:=false
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  FlashWindow(Form2.handle,true);
end;