keyDown automaticamente

[dimitrikx 0]

Ola pessoal,Desenvolvi um sistema, com tela de pre-cadastro(adiciona os daldos) e cadastro(altera e complementa os dados).Mas agora me falaram que a pessoa vai pode adicionar direto da tela de cadastro.Coloquei um botao na tela de pre-cadastro e mandei o texto para o textfiled da tela de cadastro.O valor é mostrado no texfield, mas estava precisando de que ele clicasse um enter automaticamente.Como faço para clicar este enter automaticante quando ativar este formulario de cadastro?

[Hugo Slepicka 0]

Veja se isso Resolve...

 

 

procedure TForm1.BitBtn1Click(Sender: TObject);begin	keybd_event(VK_RETURN, 0, 0, 0);	keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0);end;

[dimitrikx 0]

Kara não funciono.Eu quero que a tecla enter seja presionada automaticamente, quando entrar na tela. Não quero clicar em botao, vou coloca-lo no active. Ajudem pessoal(;Funciono karavalewTinha eskecido o set focusfalow