Localizar un componente y darle el foco

[GerTorresM]

Hola a Todos:

Me encuentro escibiendo un procedimiento mediante el cual pueda darle el foco a un control ej boton, edit; el código que utilizo es el siguiente

Código Delphi [-]
procedure EstablecerFoco(Formulario : TForm; Control : TWinControl);
begin
   Try
     Formulario.FindComponent('Control') as TWinControl;
     Formulario.Control.SetFocus;
   Except
     MessageDlg('No se lozalizo el control ' + Control.Name, mtInformation,[mbOk], 0);
   End;
end;

al intentar correr queda en la cuarta linea y me envia los siguientes mensajes

[Error] UProcedimientos.pas(425): Statement expected, but expression of type 'TWinControl' found
[Error] UProcedimientos.pas(426): Undeclared identifier: 'Control'
[Error] UProcedimientos.pas(426): Not enough actual parameters

Y la verdad no tengo ni idea que debio hacer, agradezco su colaboración


gertorresm

[[white_zombie]]

Hola, prueba de esta forma.

Código Delphi [-]
procedure EstablecerFoco(Formulario : TForm; Control : TWinControl);
begin
   Try
     TWinControl(Formulario.FindComponent(Control.Name)).SetFocus;
   Except
     MessageDlg('No se lozalizo el control ' + Control.Name, mtInformation,[mbOk], 0);
   End;
end;

Un Saludo.

[krlox31416]

si configuras en las propiedad del button o edit el tag deberias condicionar con un if el button a tag 1 quedaria condicionado de esta manera si button tiene el tag a 1 hacer de lo contrario que pase el foco al edit sin usar funciones.

Código Delphi [-]
begin 
button1.setfocus;
end
else
begin
edit1.setfocus;
end;

Saludos

[[coso]]

Hola,
tienes un error de concepto. Si le estas pasando el objeto que quieres darle el foco, ¿para que lo vuelves a buscar con findcomponent?

Código Delphi [-]
procedure EstablecerFoco(Formulario : TForm; Control : TWinControl);
begin
   Try
     Formulario.FindComponent('Control') as TWinControl;
     Formulario.Control.SetFocus;
   Except
     MessageDlg('No se lozalizo el control ' + Control.Name, mtInformation,[mbOk], 0);
   End;
end;

aparte que tendrias que usar el control.Name. Ten en cuenta que una cosa es el nombre del objeto, y otra el de la variable con el que tu estas trabajando:

Código Delphi [-]
var 
   o1 : TControl;
   o2 : TControl;
   r : TControl;
   edit1 : TEdit;
begin
   o1 := TControl.Create(self);
   o2 := TControl.Create(self);
   ...
   o1.Name := 'control';
   o2.Name := 'o1';

   r := FindComponent(o2.Name) as Tcontrol; // r sera o2
   r := FindComponent(o1.Name) as Tcontrol; // r sera o1
   r := FindComponent('o1') as Tcontrol // r sera o2
   r := FindComponent('control') as TControl // r sera o1
end;

para lo que quieres hacer, con la funcion que tienes, tansolo debes hacer

Código Delphi [-]
procedure EstablecerFoco(Control : TWinControl);
begin
   if assigned(Control) then Control.SetFocus;
end;

y si quieres encontrar algun objeto por su nombre entonces

Código Delphi [-]
procedure EstablecerFoco(Formulario : TForm; s : string);
begin 
   try
       (Formulario.FindComponent(s) as TWinControl).SetFocus;
   except
    ...
   end;
end;

espero se te haya aclarado algo mas. Un saludo.