Zdarzenie ruchu myszy generuj wiele zdarzeń , użytkownik rusza myszka i w pewnym momencie przestaje ruszać. Jak 3 sekundy po tym jak mysz jest nieruchoma uruchomić procedurę która wyświetli komunikat "BUU"
Jakiś zarys koncepcji
type
TCos = class
end;
var
cos: Tcos;
function uruchom_po_chwili(p_delay: Integer; p_procedure:TProc): TCos;
begin
// ????
end;
procedure TForm75.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Assigned(Cos) then Cos.free;
cos := uruchom_po_chwili( 3000,
procedure
begin
Showmessage('BUU');
end)
end;
Czy da sie coś takiego zrobić OmniThreadLibrary?