OnExit Chamando OnKeyDown

26/12/2005

Eixox

fazer isso da seguinte forma:

onExit....
Controle.onKeyDown(Sender);

Responder

Gostei + 0

26/12/2005

Martins

Como chamar o evento OnKeyDown de dentro do OnExit?

Qual o objetivo disso?

Responder

Gostei + 0

26/12/2005

Martins

Teste dessa forma, talvez exista outra menos trabalhosa ou mais correta, eu n�o sei, mas assim deve funcionar.

Crie uma procedure ex:

procedure Teste( Sender: TObject; var Key: Word; Shift: TShiftState );

Coloque os c�digos q sejam necess�rios

no Evento OnExit coloque assim:

  Form1.OnKeyDown := Teste;

Valew!!!

Responder

Gostei + 0

26/12/2005

Eixox

Desculpem-me, o c�digo que enviei n�o funca.

Perd�o a todos pela falha nossa.

obrigado pela compreens�o e pe�o desculpas especialmente ao amigo Paulo pelo qual n�o ajudei.

Responder

Gostei + 0

26/12/2005

Martins

Desculpem-me, o c�digo que enviei n�o funca. Perd�o a todos pela falha nossa. obrigado pela compreens�o e pe�o desculpas especialmente ao amigo Paulo pelo qual n�o ajudei.

Acontece, por�m o simples fato de vc ter tentado ajudar j� � muito, valew!!!

Responder

Gostei + 0

26/12/2005

Paulo

eixox, a tentativa de ajudar j� � uma ajuda. Aqui comigo, sem problemas, parceiro. Valeu mesmo! O Objetivo disso, � que eu tenho uma rotina no OnKeyDown que funciona, mas s� qdo a tecla enter � pressionada. Acontece que tem uma usu�ria, que ela sai do edit, �s vezes com o mouse, e o evento n�o � disparado, e depois me liga para dizer que est� dando erro. Preciso evitar isso. Poderia encher de bot�es ao inv�s de tratar no evento do componente, mas se for poss�vel, usarei o OnExit q a parada ser� resolvida, a menos que os colegas tenham outra solu��o que eu n�o consigo enxergar.

Responder

Gostei + 0

26/12/2005

Martins

ConsultE a fun��o keybd_event( VK_TELCA, 0, 0, 0 )

Responder

Gostei + 0

26/12/2005

Martins

ConsultE a fun��o keybd_event( VK_TELCA, 0, 0, 0 )

Corrigindo...

Consulte a fun��o da API do Windows Keybd_Event( VK_Tecla, 0, 0, 0 )

Boa Sorte!!!

Responder

Gostei + 0

06/10/2010

Osmanito Brito

Esse post � antigo, mas passei por aqui e vendo a dificuldade anexo a este a solu��o.
Veja a� e valeu colegas fu�adores de bits.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
    Button1: TButton;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button1Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_return then ShowMessage('Teste');
end;

procedure TForm1.Button1Click(Sender: TObject);
var Key: word;
    Shift: TShiftState;
begin
   Key:=vk_return;
   Shift:=[ssShift];
   FormKeyDown(Button1, Key, Shift);
end;

end.

Responder

Gostei + 0