Crie um procedure (a declaração dela pode ser na seção private) com
os mesmos parametros gerados no evento OnKeyPress:
type
TForm1 = class(TForm)
Button1: TButton;
procedure KeyPressFormulario(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
...
...
procedure TForm1.KeyPressFormulario(Sender: TObject; var Key: Char);
begin
if Key = #13 then
ShowMessage('Enter');
end;
Seta a propriedade OnKeyPress do Form:
Form:=TForm.Create(Application);
with Form do
begin
Left := Sender.Left+Sender.Width;
KeyPreview := True;
OnKeyPress := KeyPressFormulario;
end;
HTH,
Roberto.
--- Em delphi-br@yahoogrupos.com.br, ArbSis <[EMAIL PROTECTED]> escreveu
> Pessoal estou criando um Form em tempo de execucao desta maneira:
> Form:=TForm.Create(Application);
> with Form do
> begin
> Left := Sender.Left+Sender.Width;
> Top := Sender.Top;
> AutoScroll := False;
> BorderIcons := [];
> Caption := 'Selecione uma opção';
> ClientHeight := 118;
> ClientWidth := 225;
> Color := clBtnFace;
> Font.Color := clWindowText;
> Font.Height := -11;
> Font.Name := 'MS Sans Serif';
> Font.Style := [];
> end;
>
> Ai eu preciso atribuir para o meu Form um evento OnKeyPress, mas
dentro
> desse evento onKeyPress eu preciso verificar qual a tecla e fazer
> determinada ação, eu ja tentei de varias formas, mas naum estou
conseguindo.
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
