Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   onKeyUp (https://www.clubdelphi.com/foros/showthread.php?t=42880)

MAXIUM 25-04-2007 07:15:11

onKeyUp
 
¿Como logro esto?, no se que pametros enviar a KeyUp, yo solo quiero que se ejecute procedimiento.
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
       Llamar a Edit1KeyUp para que ejecute su código;
end;
Código Delphi [-]
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
      Hace algo;
end;



Ante mano, muchas gracias.

Neftali [Germán.Estévez] 25-04-2007 12:41:53

Debes explicar qué tecla quieres enviar al ejecutar el KeyUp.

Código Delphi [-]
  Self.Edit1KeyUp(Self, VK_F1, []);

gluglu 25-04-2007 12:48:27

Si no quieres pasar ningún parámetro de nada, y lo único que quieres es que se ejecute el código que tienes en KeyUp, también podrías poner :

Código Delphi [-]
Edit1KeyUp(nil, nil, []);

MAXIUM 26-04-2007 03:05:57

Muchas gracias a ambos, los códigos me han sido de gran utilidad.

MAXIUM 26-04-2007 05:14:41

Ahora que lo probe no me resulto ninguno de los 2 :( .

Lo que necesito es lo que gluglu dice, pero el código que si me funciona es

Código Delphi [-]
var 
    Key: Word;
begin
       Key:= 0;
       Edit1KeyUp(Sender, Key, []);
end;

Solo que el Key no le puedo asignar NIL poruqe este último es un puntero y no un Word. A Key le di el valos 0 por ponerle algo aunque yo no quiero enviarle parametros, en todo caso funciona para mis propositos. Gracias.


La franja horaria es GMT +2. Ahora son las 01:18:00.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi