Ver Mensaje Individual
  #4  
Antiguo 08-03-2010
BrunoBsso BrunoBsso is offline
Miembro
 
Registrado: nov 2009
Ubicación: Berisso, Buenos Aires, Argentina
Posts: 239
Reputación: 15
BrunoBsso Va por buen camino
Lightbulb

Bueno, entonces tendrías que crear algún procedimiento llamado OnChangeImg(Sender:TObject).
Acá te dejo un ejemplo, vos después modificalo a tu gusto.
Código Delphi [-]
type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure OnChangeImg(Sender:TObject); //Tu propio OnChange
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.OnChangeImg(Sender:TObject);
//Este PROC tiene que estar declarado en el form que lo use
begin
  Self.Refresh; //Si no refrescas, no carga la imagen
  ShowMessage('La imagen cambió.');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Picture.Bitmap.LoadFromFile('Una imagen cualquiera');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  //Asigno el OnChangeImg a Image1.Picture.Bitmap.OnChange
  Image1.Picture.Bitmap.OnChange:=OnChangeImg;
  {Si lo asignas a Image1.Picture.OnChange, llama dos veces al evento (una porque cambia la propiedad Picture y otra porque cambia la propiedad Bitmap)}
end;

Saludos!
Responder Con Cita