Handle de objetos

[juank1971]

Saludos:

Programo en delphi XE con sqlserver 2008, estoy haciendo un sistema de reservas para restaurantes
necesito me sugieran una idea para obtener el objeto Mesa sin necesidad de hacer una búsqueda de los padres, me explico.

Tengo un TPageControl padre de todos en el están los nombre de los restaurantes. todo se crea en tiempo de corrida dependiendo de lo que hay en las base de datos.
dentro de ese TPageControl padre con los restaurantes están en cada TtabSheet otro TPageControl con los nombres de los horarios.
y dentro de cada horario en cada TTabSheet están los componentes mesas que son Tgroupbox.

Todo lo creo en tiempo de corrida y tengo control del nombre de cada cosa, por ejemplo todos los rstaurantes les llamo 'R' + Idrestaurante
en cada Ttabsheet tengo el nombre de 'S' + el Id_seating, y en las mesas que estan dentro de cada uno de esos las llamo 'M' + Id_mesa

Entonces mi pregunta es la siguiente como cada componente lo creo en tiempo de corrida para identificar una mesa, tengo que hacer una búsqueda primero
por el abuelo TPageControl de los restaurantes a ver por el findcontrol en que seating estó (Hora), después tengo que buscar en el padre seating con el findcontrol cual es la mesa.

Entonces hay alguna forma de encontrar un objeto dentro de varios directamente con el nombre que no sea haciendo busquedas con el findcontrol por el padre. Porque de esta forma lo encuentra pero tengo como tres niveles de búsquedas, ya que la mesa no tiene como padre los horarios sino otro nivel mas abajo con un ScrolBox que le puse dentro para poder desplazar las mesas en una forma visual.

Como se que nadie lee sin ejemplos les pongo como creo los restaurantes,despues los seating y luego las mesas en tiempo de corrida:
quisiera entonces una forma de poder encontrar una mesa teniendo su nombre sin necesidad que hacer primero busquedas por sus abuelos y padres.


procedure TForm1.AdicionaRestaurantes;
var
NewGB: TcxGroupBox; s: string; sc: TScrollBox; q: tsqlquery;
TabInd: Integer;
NombreTab: string;
begin
q := tsqlquery.Create(nil);
with q do
begin
SQLConnection := datamodule2.SQLCon;
sql.add('SELECT * from restaurantes');
ExecSQL;
open;
first;
while not eof do
begin
NombreTab := 'R' + FieldByName('id').asstring;
AddPaginas(FieldByName('restaurante').asstring, NombreTab,
PageControlRestaurantes, TabInd);
AddSeating(TabInd, FieldByName('id').asinteger);
next;
end;
free;
end;
end;

procedure TForm1.AddPaginas(ACaption, Nombre: string; AControl: TcxPageControl;
var indice: Integer);
var
NewPage: TcxTabSheet;
begin
NewPage := TcxTabSheet.Create(AControl.Owner);
NewPage.PageControl := AControl;
NewPage.Caption := trim(ACaption);
NewPage.Name := Nombre;
// NewPage.PopupMenu := MenuPC;
indice := NewPage.TabIndex;
end;

procedure TForm1.AddSeating(TabI, idREs: Integer);
var
PS: TcxPageControl; q: tsqlquery;
NewGB: TcxGroupBox; TabSeatingInd: Integer;
NombreTab: string;
begin
// crea un TcxPageControl para todos los seating del restaurante
PS := TcxPageControl.Create(nil);
PS.Parent := PageControlRestaurantes.Pages[TabI];
PS.align := alclient;
PS.LookAndFeel.SkinName := dxSkiniMaginary.SkinNames[0];

q := tsqlquery.Create(nil);
with q do
begin
SQLConnection := datamodule2.SQLCon;
sql.add(' SELECT ' + ' dbo.Seating.Seating,' +
' dbo.SeatingXRestaurantes.Id_Restaurante,' +
' dbo.SeatingXRestaurantes.id AS idSxR,' +
' dbo.SeatingXRestaurantes.id_seating ' + ' FROM ' +
' dbo.SeatingXRestaurantes ' +
' INNER JOIN dbo.Seating ON (dbo.SeatingXRestaurantes.id_seating = dbo.Seating.id)'
+ ' WHERE ' + ' dbo.SeatingXRestaurantes.Id_Restaurante = ' +
IntToStr(idREs));
ExecSQL;
open;
first;
while not eof do
begin
NombreTab := 'S' + FieldByName('idSxR').asstring;
AddPaginas(FieldByName('seating').asstring, NombreTab, PS, TabSeatingInd);
AddMesas(PS, TabSeatingInd, idREs, FieldByName('idSxR').asinteger);
next;
end;
free;
end;
end;

procedure TForm1.AddMesas(Padre: TcxPageControl;
TabSeating, idREs, idSea: Integer);
var
sc: TScrollBox;
q: tsqlquery;
NewGB: TcxGroupBox;
TabSeatingInd: Integer;
IDSeaxRes: string;
begin
// crea un TScrollBox para todas las mesas del seating
sc := TScrollBox.Create(nil);
sc.Parent := Padre.Pages[TabSeating];
sc.align := alclient;
sc.ParentBackground := true;

IDSeaxRes := Rightstr(Padre.Pages[TabSeating].Name,
Length(Padre.Pages[TabSeating].Name) - 1);

sc.Name := 'S' + IDSeaxRes;

q := tsqlquery.Create(nil);
with q do
begin
SQLConnection := datamodule2.SQLCon;
sql.add('SELECT * from capacidad where id_SxR = ' + IDSeaxRes);
ExecSQL;
open;
first;
while not eof do
begin
AddMesa(sc, FieldByName('Id_capacidad').asinteger,
FieldByName('NoMesa').asinteger, FieldByName('tipomesa').asinteger,
FieldByName('posx').asinteger, FieldByName('posy').asinteger);
next;
end;
free;
end;
end;

procedure TForm1.AddMesa(sc: TScrollBox; IDCapa, NoMesa, tipoM, xx,
yy: Integer);
var
t: TcxGroupBoxMy; p: TcxImage;
l: tpicture; s: string;
i: Integer; espacios: string;
Caracteres: Integer;
begin
// Adiciona un TcxGroupBoxMy que es el objeto mesa con una imagen de la mesa correspondiente dentro un objeto TcxImage
t := TcxGroupBoxMy.Create(nil);
espacios := '';
with t do // crear el group box que contiene la mesa
begin
// Instancia el objeto de una mesa (TcxGroupBoxMy) con características agregadas por mi
Estado := false;
PaxTotal := tipoM;
PaxReservados := 0;
PosicionX := xx;
PosicionY := yy;
Numero := NoMesa;
id := IDCapa;
// este es el id unico para buscarlo en SeatingXRestaurantes

Seating := (sc.Parent as TcxTabSheet).Caption;
IdSeating := StrToInt(Rightstr((sc.Parent as TcxTabSheet).Name,
Length((sc.Parent as TcxTabSheet).Name) - 1));

Restaurante := ((sc.Parent as TcxTabSheet)
.Parent.Parent as TcxTabSheet).Caption;
IdRestaurante :=
StrToInt(Rightstr(((sc.Parent as TcxTabSheet)
.Parent.Parent as TcxTabSheet).Name,
Length(((sc.Parent as TcxTabSheet).Parent.Parent as TcxTabSheet)
.Name) - 1));

// Inicializa Características de TcxGroupBox
Parent := sc;
top := xx;
left := yy;
Height := 76;
Width := 86;
style.LookAndFeel.SkinName := dxSkinStardust.SkinNames[0];
name := 'M' + IntToStr(IDCapa);

Caracteres := 16 - Length(IntToStr(NoMesa));
// calculo de los espacios para mostrar el munero de mesa
Caracteres := Caracteres - Length(IntToStr(tipoM - PaxReservados));
for i := 1 to Caracteres do
espacios := espacios + ' ';

Caption := 'M' + IntToStr(NoMesa) + espacios +
IntToStr(tipoM - PaxReservados);

end;
//agrega la imagen a la mesa sacada de un componente que las almacena.
p := TcxImage.Create(nil);
with p do // crear el grafico que dibuja la mesa con la imagen de almacen
begin
picture := cxImage1.picture;
Parent := t;
style.TransparentBorder := false;
align := alclient;
Properties := cxImage1.Properties;

s := trim(GetImagenMesaIni(tipoM));
picture.Graphic.LoadFromStream(Almacen.ItemByName(s).AsStream);
end;

end;

[ecfisa]

Hola juank1971.

Si ya le diste un nombre a cada mesa, podés buscarlas por su nombre con el método FindComponent.

Por ejemplo:

var
C: TComponent;
begin
C:= FindComponent('M'+IntToStr(ID_Mesa)); // suponiendo que el nombre es 'M'+id de mesa
if Assigned(C) then
begin
// aquí lo que desees hacer con la mesa (GroupBox) encontrada...
TGroupBox(C).Color:= clRed;
...



Saludos.

[juank1971]

gracias por responder, pero FindComponent
a lo que he podido probar no me encuentra los componentes varios niveles dentro, no busca en toda la aplicacion.

voy a probar de nuevo, pero anoche estuve haciendo varias pruebas y como trabaja de maravilla FindComponent es parado en el padre.

probé tambien con application.FindComponent y no lo encuentra.
sin embargo si hago un FindComponent en el abuelo para buscar el seating que es el padre y hago un FindComponent del padre si encuentro la mesa pero tengo que bajar niveles.

ahora me surge la duda y voy a probar de nuevo, pero si haces un FindComponent de un componente dentro de otro que esta dentro de otro y dentro de otro varios niveles no lo encuentra.

Salud y pesetas
juank