Capturar Mouse

Question

Ol� pessoal.Tem como lan�ar um evento toda vez que o mouse for clicado, n�o importando onde ele foi clicado?Agrade�o antecipadamente....

Max.jgs · Answer

[quote:f9cb121255=�flaviosan�]Ol� pessoal.Tem como lan�ar um evento toda vez que o mouse for clicado, n�o importando onde ele foi clicado?Agrade�o antecipadamente.[/quote:f9cb121255]V� no evento OnClick e digite a linha de c�digo.Ex:procedure TForm1.FormClick(Sender: TObject);begin        ShowMessage(�Teste�);end;Ass: Max......

Andremuller · Answer

A dica aterior n�o funcionar� para o click em qualquer local do form, apenas para o click no form. Para testar apenas coloque um panel no form e ver� que a mensagem n�o aparecer� para os cliques no panel.
Para setar o clique de todos os componentes ent�o tu podes utilizar um m�todo como

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to ComponentCount - 1 do
  begin
    if Components[i] is TControl then
      if Components[i] is TButton then
        (Components[i] as TButton).OnClick := FormClick
      else
        if Components[i] is TPanel then
          (Components[i] as TPanel).OnClick := FormClick
        else
          raise Exception.Create(�Componente n�o tratado. � + Components[i].Name);
  end;
end;

sendo que ele vai ignorar qualquer outra refer�ncia para outros OnClick.
Eu dei uma olhada r�pida e n�o achei tenhum typecast geral para os componentes visuais, se tu achar, melhor, n�o precisa escrever para cada classe como eu fiz (TPanel e TButton), porque na TControl o TNotifyEvent OnClick est� como protected.

Se tua inten��o � outra ou est�s com d�vida, envie outra mensagem para o f�rum.

Flaviosan · Answer

Obrigado pessoal pela ajuda, mas eu achei um modo melhor de fazer isso. Usando o evento oncreate do form, eu criei uma procedure que monitora o eventos do mouse, atraves do evento Application.OnMessage, em qualquer lugar do form. Se alguem precisar de ajuda, � s� pedir.
Obrigado pela ajuda.

Dpinho · Answer

[quote:82877162cf=�flaviosan�]Obrigado pessoal pela ajuda, mas eu achei um modo melhor de fazer isso. Usando o evento oncreate do form, eu criei uma procedure que monitora o eventos do mouse, atraves do evento Application.OnMessage, em qualquer lugar do form. Se alguem precisar de ajuda, � s� pedir.Obrigado pela ajuda.[/quote:82877162cf]Amigo estou tentando fazer uma rotina onde reconhe�o que o mouse foi movido ou clicado, parecido com o descanso de tela quero que aparec�a os componentes somente se utilizar o mouse e se ficar alguns minutos sem utilizar faz desaparecer os componentes...poderia ajudar...

F�rum Capturar Mouse #263958