Delphi - evento que simula click.?

anonymous

Como posso inserir uma linha de código no Delphi para simular um click em um botão?

answerer

Você pode adicionar o código no evento OnClick do botão mesmo, assim, ele só funcionará quando for clicado.

Porém, você pode chamar esse evento do botão de outra maneira além do clique.

Ex:

procedure TForm1.Button1Click(Sender: TObject);

begin

ShowMessage('teste');

end;

Este é o código inteiro colocado no botão, o que se refere ao clique sobre o mesmo.

Agora para chamar este evento, basta em algum lugar do seu código, adicionar a linha:

Button1.Click;

Assim você não clicará no botão mas o evento referente a seu clique será executado mesmo assim

adaiu

Use a função mouse_event() do Delphi que manipula o ponteiro do mouse.

exemplo:

{pressiona o botao esquerdo por 20 segundos e levanta}

mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);

Sleep(20);

mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);