procedure TForm1.Timer1Timer(Sender: TObject); begin FlashWindow(handle,true); end;
最前: SetWindowPos(handle,hwnd_TopMost,0,0,0,0,swp_NoMove or swp_NoSize); 闪烁: SetActiveWindow FlashWindow
setwindowspos API函数用法: with self do setwindowspos( Hande,left,top,width,Height,TH.. SW_NOACTIVE or SW_NOSIZE)
记不清了,自己查一下API或Delphi帮助
API函数:BringWindowToTopThe BringWindowToTop function brings the specified window to the top of the Z order. If the window is a top-level window, it is activated. If the window is a child window, the top-level parent window associated with the child window is activated.
SetActiveWindow
FlashWindow
begin
FlashWindow(handle,true);
end;
SetWindowPos(handle,hwnd_TopMost,0,0,0,0,swp_NoMove or swp_NoSize);
闪烁:
SetActiveWindow
FlashWindow
with self do
setwindowspos( Hande,left,top,width,Height,TH..
SW_NOACTIVE or SW_NOSIZE)
记不清了,自己查一下API或Delphi帮助