Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Actualizar esta página Como saber en donde esta posicionado el foco
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 02-12-2008
RedVenom RedVenom is offline
Miembro
  
Registrado: oct 2003
Ubicación: Tabasco, Mexico
Posts: 110
Poder: 21
RedVenom Va por buen camino
Como saber en donde esta posicionado el foco
Mi duda es la siguiente tengo 142 dbradiogroup entonces yo necesito extraer en tiempo de ejecuion el nombre del dbradiogroup cuando el foco se posicione en alguno de ellos.
Espero se pueda hacer esto.
Responder Con Cita
  #2  
Antiguo 02-12-2008
Avatar de droguerman
droguerman droguerman is offline
Miembro
  
Registrado: abr 2005
Ubicación: tierra
Posts: 999
Poder: 20
droguerman Va por buen camino
Asignas a todos el mismo evento click y pones el siguiente código
Código Delphi [-]
function OnClick(sender: TObject);
var
  oSeleccionado : TdbgRadiogroup;
begin
  oSeleccionado := (sender as TdbgRadiogroup);
  showMessage(oSeleccionado.name);
end;

saludos
__________________
self.free;
Responder Con Cita
  #3  
Antiguo 02-12-2008
Avatar de Caro
*Caro* Caro is offline
Moderadora
  
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Poder: 22
Caro Va por buen camino
Hola, le asigans el mismo evento a todos tus DBRadioGroups y haces lo siguiente.

Código Delphi [-]
procedure TFExportar.DBRadioGroup1Click(Sender: TObject);
begin
 showMessage(TDBRadioGroup(Sender).Name);
end;

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Última edición por Caro fecha: 02-12-2008 a las 16:20:38.
Responder Con Cita
  #4  
Antiguo 02-12-2008
RedVenom RedVenom is offline
Miembro
  
Registrado: oct 2003
Ubicación: Tabasco, Mexico
Posts: 110
Poder: 21
RedVenom Va por buen camino
Question
Disculpa mi ignorancia soy nuevo en esto y pues no entendi muy bien donde lo voy a implementar en la funcion onclick del dbradiogroup o donde??
Responder Con Cita
  #5  
Antiguo 02-12-2008
Avatar de Caro
*Caro* Caro is offline
Moderadora
  
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Poder: 22
Caro Va por buen camino
Cita:
Empezado por RedVenom Ver Mensaje
Disculpa mi ignorancia soy nuevo en esto y pues no entendi muy bien donde lo voy a implementar en la funcion onclick del dbradiogroup o donde??
Talvez sea mejor que lo hagas en el evento OnEnter de tu DBRadioGroup, pero no te olvides asignar el mismo evento a todos tus DBRadioGroups.

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita
  #6  
Antiguo 02-12-2008
RedVenom RedVenom is offline
Miembro
  
Registrado: oct 2003
Ubicación: Tabasco, Mexico
Posts: 110
Poder: 21
RedVenom Va por buen camino
Ok lo agrego en el evento onenter, bueno ahora la cuestion es que ese nombre yo lo necesito para darle el dato a un evento onkeydown de la form porque yo en ese evento asigno unas letras y luego que asigne la letra deseo que cambie el foco al siguiente dbradiogoup por eso necesito extraer el nombre.
Responder Con Cita
  #7  
Antiguo 02-12-2008
Avatar de Caro
*Caro* Caro is offline
Moderadora
  
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Poder: 22
Caro Va por buen camino
Cita:
Empezado por RedVenom Ver Mensaje
Ok lo agrego en el evento onenter, bueno ahora la cuestion es que ese nombre yo lo necesito para darle el dato a un evento onkeydown de la form porque yo en ese evento asigno unas letras y luego que asigne la letra deseo que cambie el foco al siguiente dbradiogoup por eso necesito extraer el nombre.
Pues, tendras que guardar en alguna variable el DbRadioGroup que ha recibido el foco.

Código Delphi [-]
RadioGroupFoco : TRadioGroup;
....................
....................
procedure TForm1.RadioGroup1Enter(Sender: TObject);
begin
 RadioGroupFoco := TRadioGroup(Sender);
end;
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 //Si presiona la A nos muestra el nombre del ultimo radioGroup que tenía el foco
 if key=65 then
  if Assigned(RadioGroupFoco) then
   showmessage(RadioGroupFoco.Name);
end;

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita
  #8  
Antiguo 02-12-2008
RedVenom RedVenom is offline
Miembro
  
Registrado: oct 2003
Ubicación: Tabasco, Mexico
Posts: 110
Poder: 21
RedVenom Va por buen camino
Angry
ya voy profgresando creo, ahi va en lo que estoy trabado ahora, bueno en una variable X tengo guardado el nombre del componente que tiene el foco digamos que se llama dbradigroup1 ahora quiero pasar el foco al componente dbradiogroup2 entonces lo que yo pense es extraer del nombre que tengo grabado en la X el la ultima parte que son los numeros, ya que tengo el numero sumarle 1 y luego volver a crear la palabra dbradiogroup2 claro con el nuevo numero y despues decirle pasa el foco al nuevo nombre que cree algo asi:

Código Delphi [-]
S:=trim(x);
P:=copy(S,13,Length(s));
Y:=(strtoint(p))+1;
H.Name:='DBradiogroup'+(inttostr(Y));
H.setfocus;

pero pues no se puede esta forma, alguna orientacion por favor
Responder Con Cita
  #9  
Antiguo 02-12-2008
[maeyanes] maeyanes is offline
Capo de los Capos
  
Registrado: may 2003
Ubicación: Campeche, México
Posts: 2.732
Poder: 24
maeyanes Va por buen camino
Hola...

Claro que no se puede de esa forma, en tu código lo único que estás haciendo es cambiar el nombre del componente en tiempo de ejecución.

En dado caso tendrías que hacer algo como:

Código Delphi [-]
RadioGroup := FindComponent('DBRadioGroup' + IntToStr(Y)) as TDBRadioGroup;
RadioGroup.SetFocus

De esta forma matas dos pájaros de un tiro, mandas el foco a otro DBRadioGroup y tienes una referencia a este mismo.



Saludos...
Responder Con Cita
  #10  
Antiguo 02-12-2008
RedVenom RedVenom is offline
Miembro
  
Registrado: oct 2003
Ubicación: Tabasco, Mexico
Posts: 110
Poder: 21
RedVenom Va por buen camino
Voy a postear mi codigo fuente pues para que me corrijan pues no cambia el foco se queda en el mismo lugar.
Código Delphi [-]
unit UnitEnlace;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DBCtrls, DB, ADODB, Mask, OleServer, ExcelXP;

type
  TFormaEnlace = class(TForm)
    enlace: TADOTable;
    DBRadioGroup1: TDBRadioGroup;
    DBRadioGroup2: TDBRadioGroup;
    DBRadioGroup3: TDBRadioGroup;
    DBRadioGroup4: TDBRadioGroup;
    DBRadioGroup5: TDBRadioGroup;
    DBRadioGroup6: TDBRadioGroup;
    DBRadioGroup7: TDBRadioGroup;
    DBRadioGroup8: TDBRadioGroup;
    DBRadioGroup9: TDBRadioGroup;
    DBRadioGroup10: TDBRadioGroup;
    DBRadioGroup11: TDBRadioGroup;
    DBRadioGroup12: TDBRadioGroup;
    DBRadioGroup13: TDBRadioGroup;
    DBRadioGroup14: TDBRadioGroup;
    DBRadioGroup15: TDBRadioGroup;
    DBRadioGroup16: TDBRadioGroup;
    DBRadioGroup17: TDBRadioGroup;
    DBRadioGroup18: TDBRadioGroup;
    DBRadioGroup19: TDBRadioGroup;
    DBRadioGroup20: TDBRadioGroup;
    DBRadioGroup21: TDBRadioGroup;
    DBRadioGroup22: TDBRadioGroup;
    DBRadioGroup23: TDBRadioGroup;
    DBRadioGroup24: TDBRadioGroup;
    DBRadioGroup25: TDBRadioGroup;
    DBRadioGroup26: TDBRadioGroup;
    DBRadioGroup27: TDBRadioGroup;
    DBRadioGroup28: TDBRadioGroup;
    DBRadioGroup29: TDBRadioGroup;
    DBRadioGroup30: TDBRadioGroup;
    DBRadioGroup31: TDBRadioGroup;
    DBRadioGroup32: TDBRadioGroup;
    DBRadioGroup33: TDBRadioGroup;
    DBRadioGroup34: TDBRadioGroup;
    DBRadioGroup35: TDBRadioGroup;
    DBRadioGroup36: TDBRadioGroup;
    DBRadioGroup37: TDBRadioGroup;
    DBRadioGroup38: TDBRadioGroup;
    DBRadioGroup39: TDBRadioGroup;
    DBRadioGroup40: TDBRadioGroup;
    DBRadioGroup41: TDBRadioGroup;
    DBRadioGroup42: TDBRadioGroup;
    DBRadioGroup43: TDBRadioGroup;
    DBRadioGroup44: TDBRadioGroup;
    DBRadioGroup45: TDBRadioGroup;
    DBRadioGroup46: TDBRadioGroup;
    DBRadioGroup47: TDBRadioGroup;
    DBRadioGroup48: TDBRadioGroup;
    DBRadioGroup49: TDBRadioGroup;
    DBRadioGroup50: TDBRadioGroup;
    DBRadioGroup51: TDBRadioGroup;
    DBRadioGroup52: TDBRadioGroup;
    DBRadioGroup53: TDBRadioGroup;
    DBRadioGroup54: TDBRadioGroup;
    DBRadioGroup55: TDBRadioGroup;
    DBRadioGroup56: TDBRadioGroup;
    DBRadioGroup57: TDBRadioGroup;
    DBRadioGroup58: TDBRadioGroup;
    DBRadioGroup59: TDBRadioGroup;
    DBRadioGroup60: TDBRadioGroup;
    DBRadioGroup61: TDBRadioGroup;
    DBRadioGroup62: TDBRadioGroup;
    DBRadioGroup63: TDBRadioGroup;
    DBRadioGroup64: TDBRadioGroup;
    DBRadioGroup65: TDBRadioGroup;
    DBRadioGroup66: TDBRadioGroup;
    DBRadioGroup67: TDBRadioGroup;
    DBRadioGroup68: TDBRadioGroup;
    DBRadioGroup69: TDBRadioGroup;
    DBRadioGroup70: TDBRadioGroup;
    DBRadioGroup71: TDBRadioGroup;
    DBRadioGroup72: TDBRadioGroup;
    DBRadioGroup73: TDBRadioGroup;
    DBRadioGroup74: TDBRadioGroup;
    DBRadioGroup75: TDBRadioGroup;
    DBRadioGroup76: TDBRadioGroup;
    DBRadioGroup77: TDBRadioGroup;
    DBRadioGroup78: TDBRadioGroup;
    DBRadioGroup79: TDBRadioGroup;
    DBRadioGroup80: TDBRadioGroup;
    DBRadioGroup81: TDBRadioGroup;
    DBRadioGroup82: TDBRadioGroup;
    DBRadioGroup83: TDBRadioGroup;
    DBRadioGroup84: TDBRadioGroup;
    DBRadioGroup85: TDBRadioGroup;
    DBRadioGroup86: TDBRadioGroup;
    DBRadioGroup87: TDBRadioGroup;
    DBRadioGroup88: TDBRadioGroup;
    DBRadioGroup89: TDBRadioGroup;
    DBRadioGroup90: TDBRadioGroup;
    DBRadioGroup91: TDBRadioGroup;
    DBRadioGroup92: TDBRadioGroup;
    DBRadioGroup93: TDBRadioGroup;
    DBRadioGroup94: TDBRadioGroup;
    DBRadioGroup95: TDBRadioGroup;
    DBRadioGroup96: TDBRadioGroup;
    DBRadioGroup97: TDBRadioGroup;
    DBRadioGroup98: TDBRadioGroup;
    DBRadioGroup99: TDBRadioGroup;
    DBRadioGroup100: TDBRadioGroup;
    DBRadioGroup101: TDBRadioGroup;
    DBRadioGroup102: TDBRadioGroup;
    DBRadioGroup103: TDBRadioGroup;
    DBRadioGroup104: TDBRadioGroup;
    DBRadioGroup105: TDBRadioGroup;
    DBRadioGroup106: TDBRadioGroup;
    DBRadioGroup107: TDBRadioGroup;
    DBRadioGroup108: TDBRadioGroup;
    DBRadioGroup109: TDBRadioGroup;
    DBRadioGroup110: TDBRadioGroup;
    DBRadioGroup111: TDBRadioGroup;
    DBRadioGroup112: TDBRadioGroup;
    DBRadioGroup113: TDBRadioGroup;
    DBRadioGroup114: TDBRadioGroup;
    DBRadioGroup115: TDBRadioGroup;
    DBRadioGroup116: TDBRadioGroup;
    DBRadioGroup117: TDBRadioGroup;
    DBRadioGroup118: TDBRadioGroup;
    DBRadioGroup119: TDBRadioGroup;
    DBRadioGroup120: TDBRadioGroup;
    DBRadioGroup121: TDBRadioGroup;
    DBRadioGroup122: TDBRadioGroup;
    DBRadioGroup123: TDBRadioGroup;
    DBRadioGroup124: TDBRadioGroup;
    DBRadioGroup125: TDBRadioGroup;
    DBRadioGroup126: TDBRadioGroup;
    DBRadioGroup127: TDBRadioGroup;
    DBRadioGroup128: TDBRadioGroup;
    DBRadioGroup129: TDBRadioGroup;
    DBRadioGroup130: TDBRadioGroup;
    DBRadioGroup131: TDBRadioGroup;
    DBRadioGroup132: TDBRadioGroup;
    DBRadioGroup133: TDBRadioGroup;
    DBRadioGroup134: TDBRadioGroup;
    DBRadioGroup135: TDBRadioGroup;
    DBRadioGroup136: TDBRadioGroup;
    DBRadioGroup137: TDBRadioGroup;
    DBRadioGroup138: TDBRadioGroup;
    DBRadioGroup139: TDBRadioGroup;
    DBRadioGroup140: TDBRadioGroup;
    DBRadioGroup141: TDBRadioGroup;
    DBRadioGroup142: TDBRadioGroup;
    DataSource1: TDataSource;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBRadioGroup1Enter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormaEnlace: TFormaEnlace;
  X:STRING;
  H:TDBRadioGroup;

implementation

{$R *.dfm}

procedure TFormaEnlace.Button1Click(Sender: TObject);
var n:real; i:integer;
begin

n:=0;
FOR i:=7 to 148 do
begin
n:= enlace.fields[i].asfloat + n;
end;
enlace.Fields[149].AsFloat:=n;
enlace.Post;
ENLACE.APPEND;
end;

procedure TFormaEnlace.FormCreate(Sender: TObject);
begin
ENLACE.Active:=TRUE;
ENLACE.APPEND;
end;

procedure TFormaEnlace.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  var
Y:integer;
S,P:String;
begin
if key=ord('A') then
begin
DBradiogroup1.itemindex:=0;
S:=trim(x);
P:=copy(S,13,Length(s));
Y:=(strtoint(p))+1;
H := FindComponent('DBRadioGroup' + IntToStr(Y)) as TDBRadioGroup;
showmessage(h.Name);
H.SetFocus;
end;
if key=ord('B') then
begin
DBradiogroup1.itemindex:=1;
end;
if key=ord('C') then
begin
DBradiogroup1.itemindex:=2;
end;
if key=ord('D') then
begin
DBradiogroup1.itemindex:=3;
end;
end;

procedure TFormaEnlace.DBRadioGroup1Enter(Sender: TObject);
begin
X:=TDBRadioGroup(Sender).Name;
end;

end.

Que estoy haciendo mal???
Responder Con Cita
Respuesta

« Tema Anterior | Próximo Tema »


Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes
El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Como saber donde esta alguien, con el numero celular felipe88 La Taberna 17 04-09-2008 06:26:35
saber en que form esta el foco gulder Varios 1 02-05-2007 01:08:03
¿Dónde está el foco? Berto2003 Varios 2 01-03-2007 13:49:38
saber si esta seleccionada una celda en stringGrid (foco) sakuragi OOP 1 11-11-2005 20:21:07
Como saber el handle del formulario donde esta el control treydo OOP 3 10-12-2003 11:57:49


La franja horaria es GMT +2. Ahora son las 18:32:03.

Club Delphi - Archivo - Top

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
Copyright 1996-2007 Club Delphi