![]() |
|
#1
|
|||
|
|||
![]() Здравствуйте! Такая ситуация. Пишу программку, мне нужно что бы при выполнении определенного условия форма мерцала к примеру до тех пор пока по ней сделаю клик. скажите хотя бы в каком направлении искать если можно, так сказать куда идти со своим вопросом)
|
#2
|
|||
|
|||
![]() Ну, для начала в ФАК. Кажется там видел, хотя могу и ошибаться. Если там не найдешь, то есть еще разные библиотеки советов с подобными задачками - поискать там. точно где-то видел...
|
#3
|
|||
|
|||
![]() Мерцание - понятие относительное ...
:-) Код:
unit Unit_Backlight; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) Timer_Pause: TTimer; Timer_Backlight: TTimer; procedure FormCreate(Sender: TObject); procedure Timer_BacklightTimer(Sender: TObject); procedure Timer_PauseTimer(Sender: TObject); procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); private { Private declarations } public { Public declarations } Color_Pause, Color_Backlight : TColor; YesFlicker : boolean; end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin Color_Pause:=Form1.Color; Color_Backlight := clLime; YesFlicker := true; Timer_Pause.Interval:=500; Timer_Backlight.Interval:=200; Timer_Pause.Enabled:=false; Timer_Backlight.Enabled:=true; end; procedure TForm1.Timer_BacklightTimer(Sender: TObject); begin Timer_Backlight.Enabled:=false; Timer_Pause.Enabled:=false; if YesFlicker then begin Form1.Color:=Color_Backlight; Timer_Pause.Enabled:=true; end else begin Form1.Color:=Color_Pause; end; end; procedure TForm1.Timer_PauseTimer(Sender: TObject); begin Timer_Pause.Enabled:=false; Timer_Backlight.Enabled:=false; Form1.Color:=Color_Pause; if YesFlicker then begin Timer_Backlight.Enabled:=true; end; end; procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin YesFlicker := not YesFlicker; if YesFlicker then begin Timer_Pause.Enabled:=false; Timer_Backlight.Enabled:=true; end; end; end. |
#4
|
|||
|
|||
![]() В общем нашел только на мерцание значка в панели задач. Пишу для тех кто столкнется с подобной проблемой. делается следующим образом.
На форму кидается таймер, который вы можете запустить через кнопку или в самом коде программно так сказать. В общем вот что в таймере пишется: Код:
FlashWindow(Application.Handle, False); Sleep(500); FlashWindow(Application.Handle, True); Интервал ставить придется так что бы быстродействие не страдало) и не забудьте таймер выключить) |
#5
|
|||
|
|||
![]() roamer, Спасибо! я так же вначале представлял, но знаний реализовать не хватило)
|