procedure TForm1.Button1Click(Sender: TObject); begin timer1.Enabled:=true; FlashWindow(findwindow(nil,'Project1'),true); end; procedure TForm1.Timer1Timer(Sender: TObject); begin FlashWindow(findwindow(nil,'Project1'),true); end; procedure TForm1.FormCreate(Sender: TObject); begin timer1.Enabled:=false; timer1.Interval:=225; end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionFlashWindow(findwindow(nil,'Project1'),False);