DBNavigator com Imágem, oque está faltando?

Delphi

11/06/2007

Eu lí um atigo que amostra como colocar o DBNavigator com imágem mas não conseguindo exito...

Já coloquei na TYPE
NewTypeNav = class( TDbNavigator );

e no OnCreate do Formulário...

procedure TForm1.FormCreate(Sender: TObject);
var

c, d: Tbitmap;

begin

c := Tbitmap.Create;

c.LoadFromFile(´C:\windows\ondas.bmp´);

newtypenav(dbnavigator1).buttons[nbinsert].Glyph := c;

d := TBitmap.Create;

d.LoadFromFile(´C:\windows\egito.bmp´);

newtypenav(dbnavigator1).buttons[nbdelete].Glyph := d;

end;


EEEE nada algue sabe oque pode ser?


Max2006

Max2006

Curtidas 0
POSTAR