Foros Club Delphi - Procedimiento PasaFoco

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Procedimiento PasaFoco (https://www.clubdelphi.com/foros/showthread.php?t=65409)

Ledian_Fdez

11-12-2009 22:03:30

Procedimiento PasaFoco

Hola amigos de este foro:

Les traigo una interrogante: Trato de hacer una Procedimiento pero no se de que tipo de dato poner el parámetro. les explico mejor.

Código Delphi [-]procedure PasaFoco(Control: ?, Key: Char);
begin
 if Key = Chr(13) then Control.SetFocus;
end;

Amigos no se de que tipo de dato poner Control ya que puede ser lo mismo un TEdit, TComboBox, TDBLookupComboBox, .. etc.

en espera de su ayuda ...
y gracias de antemano

rgstuamigo

11-12-2009 22:18:12

Código Delphi [-]procedure PasaFoco(Control: TWinControl; Key: Char);
begin
if Key = Chr(13) then Control.SetFocus;
end;

;););).
Saludos...:)

La franja horaria es GMT +2. Ahora son las 19:54:18.