ListBox1KeyDown() como que chamo esse evento?

Delphi

09/04/2003

tenho que chamar esse evento dentro de um botão. Como poderia fazer isso?

Quero que quando pressionar um botão, faça a chamada dele.

Tenho que passar parâmetros?

Muito obrigado e Bom dia!!!

:arrow: :) Ajudante do Papai Noel :)


Anonymous

Anonymous

Curtidas 0

Respostas

E_gama

E_gama

09/04/2003

procedure TForm1.Button1Click(Sender: TObject);
var Key: Word;
begin
  Key := 0;
  ListBox1KeyDown(Sender, Key, [])
end;


Onde [b:2eda344816]Key[/b:2eda344816] é o código do tecla que você estaria simulando o pressionamento, e o parametro entre conchetes, é o estado das teclas Ctrl, Alt, Shift e botões do mouse. Pode ter o sseguintes valores:

[b:2eda344816]ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble[/b:2eda344816]

Se quiser simular, por exemplo que além do pressionamento da tecla, ainda considere que as teclas Ctrl e Alt estejam pressionadas, faça como o código abaixo:

procedure TForm1.Button1Click(Sender: TObject);
var Key: Word;
begin
  Key := 0;
  ListBox1KeyDown(Sender, Key, [ssCtrl, ssAlt])
end;



GOSTEI 0
Anonymous

Anonymous

09/04/2003

Obrigado rapaz muito útil sua explicação, acredito que agora minha idéia dará certo.

Um abraço. :lol:


GOSTEI 0
POSTAR