cambiar label al presionar imagen

[unko!]

ola... alguien sabe como hacerle (codigo) para que al clickear una imagen, el Caption del label (lo que dice) se cambie a otra palabra??? (predefinida por mi)

Por decirlo asi, el label dice... "jajaja" y al presionar la imagen, el texto ("jajaja") se cambia a "jojojo" por decirlo asi.

salu2!!

[MasterXP]

en el evento ONclick del Timage solo debes poner algo como esto:

Código Delphi [-]
  procedure TForm1.Image1Click(Sender: TObject);
  begin
  MiLabel.Caption:='Jojojojo';
  end;

salu2.

[raco]

Puedes definir en las propiedades del object Inspector del Label en Caption lo q va a decir al principio (jajajaja)

Agregas la imagen (Image en la paleta de Additional), le agregas una imagen en la propiedad picture y le das doble click a la imagen y te va a a crear un evento que se llame Onclick en el Unit

procedure TForm1.Image1Click(Sender: TObject);
begin

end;

en esa parte agrega esto:

Label1.Caption:='jojojojojo'; y listo.

y va a quedar asi:
procedure TForm1.Image1Click(Sender: TObject);
begin
Label1.Caption:='jojojojojo';
end;