Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)
-   -   cambiar label al presionar imagen (https://www.clubdelphi.com/foros/showthread.php?t=18787)

unko! 23-02-2005 02:45:16

cambiar label al presionar imagen
 
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 23-02-2005 03:01:19

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 23-02-2005 03:05:14

Label??.caption
 
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;


La franja horaria es GMT +2. Ahora son las 03:41:16.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi