Kod zrodlowy:
var
Miganie : Boolean;
begin
Miganie := not Miganie;
FlashWindow(Application.Handle, Miganie);
end;
Teraz żeby uruchomić migotanie piszemy :
Timer1.Enabled := True;
I logicznie jak bym wzial "Timer1.Enabled := False;" i "FlashWindow(Application.Handle, False);" powinno sie wylaczyc jednak nadal sie swieci. Jesli ktos zna odpowiedz na ten problem prosze pisac.
No rzeczywiście dziwne, bo u mnie się migotanie wyłącza. Może nie dałeś procedur tak gdzie trzeba:
<font color="blue">procedure TForm1.Timer1Timer(Sender: TObject);
var
Miganie : Boolean;
begin
Miganie := not Miganie;
FlashWindow(Application.Handle, Miganie);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := False;
FlashWindow(Application.Handle, False);
end;
end.</span>
I wszystko działa.. migotanie się normalnie wyłącza.
Hehehe no ale mi nie dziala mam Windowsa XP. Widzialem ze wiele osob mam ten sam problem.
u mnie działa. rzuć kodem.
Ja juz rzucilem kodem moze ty daj swoj to sprawdze.
<font color="blue">Ja juz rzucilem kodem moze ty daj swoj to sprawdze.</span>
Przecież napisałem, co ty niewidomy jesteś ?
HAHAHAH sory myslalem ze jest inna osoba ktora napisala ten kod. Ale ten kod nie dziala. Nie jest doskonaly.
YYYY a co to znaczy "doskonały" - chodzi ci o to, że nie jest pełny? Prosze bardzo:
[code]unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := False;
FlashWindow(Application.Handle, False);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
Miganie : Boolean;
begin
Miganie := not Miganie;
FlashWindow(Application.Handle, Miganie);
end;
end.[/code]
Ehhhh chodzilo o to ze ten twoj kod zrodlowy nie dziala na przyklad mi i pewnie wielu osobom. Dlatego jest NIEDOSKONALY.