Форма-маяк в Delphi

Заголовок активной формы имеет яркий цвет, неактивной - блеклый. Если попеременно окрашивать его в эти цвета, то форма будет мигать, как мая­чок в ночи. Сделать это очень просто, воспользовавшись услугами функ­ции 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.
 

 

 

После запуска программы заголовок формы будет отчаянно мигать. Но ес­ли вы щёлкнете по форме, она прекратит этот нудный процесс.

dle

Помоги проекту! Расскажи друзьям об этом сайте: