Wygaszacz ekranu

0

Kiedy w wygaszaczu ekranu, w zdarzeniu onMouseMove wstawie Self.Close
to taki program uruchamia się na ułamek sekundy i Od razu kończy swoje
działenie, jak to przezkoczyć żeby żeczywiście wyłączał się w momencie
w którym się ruszy myszką, a nie Od razu po uruchomieniu?

piechnat

0

Mam pomysl jak to zrobic przy uzyciu timera zeby dzialalo:

var
Form1: TForm1;
x1,x2,z:integer;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
x1:=mouse.CursorPos.x;
x2:=mouse.CursorPos.x;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
x2:=x1;
x1:=mouse.CursorPos.x;
z:=x1-x2;
if (z&gt1) or (z&lt-1) then close;
end;

Pozdrawiam {hello}

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0