[Lazarus-es] crear botón dinámicamente

Paola Bruccoleri pbruccoleri en adinet.com.uy
Dom Feb 14 18:32:18 CET 2010


Hola a todos..

tengo que crear unos botones dinámicamente.. lo hago a través de un 
procedim que tiene esto: (sfondo es el nombre de la imagen)

  if sFondo <> '' then
    with TImage.Create(self) do
      begin
        Name   := Copy(sNombre,1,Length(sNombre)-3)+'IMG';
        Left   := nLeft;
        Top    := nTop;
        Width  := nWidth+2;
        Height := nHeight+2;
        Picture.LoadFromFile( sFondo );
        Parent := Menu_FRM;
        Transparent := true;
      end;                     

ahora... cuando llega al Picture.LoadFromFile( sFondo ); hace crash: 
"unable to open file fondo.bmp"
sFondo tiene el valor: "fondo.bmp"
aclaro que el archivo se encuentra en la carpeta del proyecto, y hasta 
ayer no había problemas :) y ni cambié el archivo de lugar ni cambié 
ningún código relacionado..

si le paso la ruta completa: d:\lz\sist\fondo.bmp no salta el error, 
pero es lo que quiero evitar...
En delphi funcionaba como estaba sin problemas..

pueden orientarme?
chauuuuuuuuuuuuu





More information about the Lazarus-es mailing list