ok ya lo probe y si funciona parcialmente, digo parcialmente por que al presionar el boton me muestra ya los sub menus pero no entiendo por que desaparecen los botones
de linea al ser presionados el evento que mando llamar en el onclick es este
Código Delphi
[-]
procedure TFrm_Main.DoOnClick(Sender: TObject);
var
i, seleccion : integer;
botonC : tbitbtn;
left, top: integer;
begin
if Sender is TBitBtn then
begin
with TBitBtn(Sender) do
begin
Left:=15;
top:=16;
Qry_Categoria.Close;
Qry_Categoria.ParamByName('idlinea').Value:=tag;
Qry_Categoria.Open;
i:=0;
Seleccion:=0;
Seleccion:=Qry_Categoria.RecordCount;
While ido
begin
botonC := TBitBtn.Create(nil);
botonC.Name:='btbc'+inttostr(Qry_Line.fieldbyname('idlinea').Value);
botonC.Hint:=Qry_Categoria.fieldbyname('descripcion').Value;
botonC.Left:= left;
botonC.Top:=top;
botonC.Width:=81;
botonC.Height:=57;
botonC.Parent:=Categoria;
if FileExists('C:\Proyectos Delphi\Zibarita TouchScreen\Image\'+inttostr(Qry_Categoria.fieldbyname('idcat').Value)+'.bmp') then
begin
botonC.Glyph.LoadFromFile('C:\Proyectos Delphi\Zibarita TouchScreen\Image\'+inttostr(Qry_Categoria.fieldbyname('idcat').Value)+'.bmp');
botonC.Caption:='';
end
else
botonC.Caption:=Qry_Categoria.fieldbyname('idcat').Value;
Qry_Categoria.next;
top:=top+62;
i:=i+1;
end;
end;
end;
end;
alguna idea ??, mil gracias por su tiempo
corrijo no desaparecen se cambian de posicion :S