F�rum janela pai, recebendo valor. #292059

17/08/2005

Boa Noite, tenho uma janela pai, que abre uma tela de consulta.
Clicando 2x, no grid da consulta um c�digo � enviado para janela.

Mas quando receber o c�digo, preciso disparar o evento onkeypress (Com a Tecla #13, no caso o enter).

procedure Tfrmpai.formpai(Sender: TObject);
var
  proximo : char;
begin
  frmConsulta:= TfrmConsulta.Create(Application);
  frmConsulta.Windowstate:= WSNormal;
  if frmConsulta.ShowModal = mrOk then
    begin
      edtCodigo.Text:= IntToStr(frmConsulta.codigo);
      proximo := 13;
      edtCodigoKeyPress(Sender,Tecla);
      frmConsCompressores:= nil;
    end;

Desse modo funciona, mas n�o tem como fazer isso, sem precisar criar a v�riavel proximo ?

Lynx

Curtir t�pico

+ 0

Responder

Posts

18/08/2005

Lynx

sobe

Responder

Gostei + 0

21/08/2005

Lynx

sobe :wink:

Responder

Gostei + 0

21/08/2005

Marco Salles

Desse modo funciona, mas n�o tem como fazer isso, sem precisar criar a v�riavel proximo ?

Bem , eu acredito que para executar um Procedimento voc deve passar os parametros.. E os paramentros do Evento OnKeyPress S�o os Parametros (Sender: TObject; var Key: Char);...

Acho que n�o tem como deixar de criar a variavel proximo de vido a Passagem Por Valor devido a palavra Chave Var

Se os parametors Fossem (Sender: TObject; Key: Char); ai sim era so Fazer (sender,#13); que daria certo

O Teste final , so a titulo de aprendizado e fazer

procedure TForm1.Button1Click(Sender: TObject);
var
 proximo : char;
begin
proximo:=13;
Edit1.OnKeyPress(sender,proximo);
Showmessage(Proximo);
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 Then
 begin
   Showmessage(�Ola�);
   key:=49; // Carecter �1�
 end;
end;

[b:cb62c82164]Veja como a variavel Proximo � afetada.. Ela inicia com o Valo 13 e acaba Valendo 49[/b:cb62c82164] Isto � basicamente o que a Palavra Chave[b:cb62c82164] Var [/b:cb62c82164]Faz

Responder

Gostei + 0

22/08/2005

Lynx

beleza,
valeu Marcos!

Responder

Gostei + 0