Delphi 7 a Delphi 2007.Errores en la migracion
 

Hola, como estan?
Estoy pasando una aplicacion de delphi 7 a delphi 2007,en una parte creo en ejecucion varios Tbitbtn, pero en delphi 2007 me da error de violacion de acceso al crearlos, y despues de creados, cada vez q paso el mouse por ellos da el mismo error, por lo q no se pueden usar...
Si alguien tiene alguna idea, se lo agradezco..
este es el codigo donde creo los botones

Código Delphi [-]
   for i := 0 to GruposPnl.ControlCount - 1 do
      if GruposPnl.Controls[i] is tbitbtn then
      begin
        (GruposPnl.Controls[i] as tbitbtn).free;
      end;
    j := 0;
    grupos.First;
    while not grupos.Eof do
    begin
      btn[j] := TBitbtn.Create(self);
      Btn[j].Name := 'G' + gruposcodigo.Value;
      btn[j].ParentWindow := GruposPnl.Handle;
      btn[j].Left := 3;
      btn[j].Height := 75;
      btn[j].Width := 105;
      btn[j].top := j * 75 + 1;
      btn[j].caption := Copy(gruposgrupo.Value, 1, 15);
      btn[j].Layout := blGlyphTop;
      btn[j].Style := bsNew;
      btn[j].spacing := -1;
      btn[j].Margin := -1;
      btn[j].hint := gruposgrupo.Asstring ;
      btn[j].showhint := true;
      Btn[j].OnClick := b1000Click;
      try
        btn[j].Glyph.loadfromfile(gruposruta_imagen.asstring);
      except
      end;
      btn[j].Glyph.Height := 32;
      btn[j].Glyph.Width := 32;
      GruposPnl.Height := ((j + 1) * 74) + 9;
      j := j + 1;
      grupos.next;
    end;
    grupos.Close;

grupos es un query, grupospnl es el panel donde pongo los botones
En delphi 7 funciona perfecto...
Gracias

Hola,

¿Probaste a poner puntos de ruptura (breakpoints) en el código de modo que puedas seguir su ejecución línea por línea? De ese modo probablemente te acercaras al problema...

gracias
 

muchas gracias, eso ya lo habia hecho, pero el error no me da en la creacion, sino al mostrarse en la forma, simplemente cambie de tbitbtn a speedbutton y funciona perfecto,debe ser algun error o deficiencia del bitbtn.