Заголовок активной формы имеет яркий цвет, неактивной - блеклый. Если попеременно окрашивать его в эти цвета, то форма будет мигать, как маячок в ночи. Сделать это очень просто, воспользовавшись услугами функции WindowsAPIFlashWindow(HWND: hWnd, bInvert : BOOLEAN).
Если при её вызове флаг bInvertустановлен, то форма будет мигать, если сброшен - вернётся в то состояние, в котором она пребывала до начала подмигивания.
Возьмите чистую форму (не правда ли, похоже на кулинарный рецепт), добавьте 1 штуку таймера и допишите код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;
type
TForml = class(TForm)
Timerl: TTimer;
procedure TimerlTimer(Sender: TObject); procedure FormClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Forml: TForml; implementation {$R *.DFM}
//МИГАНИЕ ЗАГОЛОВКА ФОРМЫ
procedure TForm1.Timer1Timer(Sender: TObject); begin
FlashWindow(Handle, true) end;
//ВЫКЛЮЧИТЬ МИГАНИЕ
procedure TForm1.FormClick(Sender: TObject); begin
FlashWindow(Handle, false); Timer1.Enabled:= false; end;
end.
После запуска программы заголовок формы будет отчаянно мигать. Но если вы щёлкнете по форме, она прекратит этот нудный процесс.