janela pai, recebendo valor.

Delphi

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

Lynx

Curtidas 0

Respostas

Lynx

Lynx

17/08/2005

sobe


GOSTEI 0
Lynx

Lynx

17/08/2005

sobe :wink:


GOSTEI 0
Marco Salles

Marco Salles

17/08/2005

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


GOSTEI 0
Lynx

Lynx

17/08/2005

beleza,
valeu Marcos!


GOSTEI 0
POSTAR