闪动capture (2000年12月29日).txt

来自「自己对DELPHI学习的一点体会」· 文本 代码 · 共 20 行

闪动capture (2000年12月29日) 

网友更新  分类:数据库   作者: maming(推荐)  推荐:maming   阅读次数:450  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject); 
begin 
Form2.Show; 
Form1.BringToFront; 
Timer1.Interval:=GetCaretBlinkTime; 
Timer1.Enabled:=Not Timer1.Enabled; 
end; 

procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
FlashWindow(Form2.Handle,TRUE); 
end;