PDA

Visualizza la versione completa : [delphi] nascondere mouse quando inattivo


sally3000
25-08-2008, 16:03
Ciao a tutti... c' una funzione per nascondere/mostrare il mouse quando inattivo da x tempo? come in realplayer quando visualizza i filmati per intenderci.

grazie :mame:

Dalton
26-08-2008, 01:21
Eccoti un p di roba...ciao!

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowCursor(False); // Hide cursor
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
ShowCursor(True); // Show cursor
end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
ShowCursor(false);
end;


procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Timer3.Enable := false;
Timer3.Enable := true;
ShowCursor(true);
end;

sally3000
26-08-2008, 09:04
a che serve il showCursor sull onclick dei bottoni 1 e 2?
i timer sono 2?oppure lo stesso ma hai sbagliato a scrivere? perch a me non funziona lo nasconde e basta :dh:

Dalton
26-08-2008, 19:52
No scusami solo questo il codice che devi usare:


procedure TForm1.Timer1Timer(Sender: TObject);
begin
ShowCursor(false);
end;


procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Timer1.Enable := false;
Timer1.Enable := true;
ShowCursor(true);
end;

Loading