Autor Tema: Re: Evento OnClick (Leído 2300 veces)

gmartin50 · « **en:** Lunes 31 de Marzo de 2003, 09:36 »

Ayudenme Por Favor.

Dentro de una de mis clases he creado un objeto TImage que dibuja una imagen en tiempo de ejecución.

Necesito manejar el evento OnClick de esa imagen y no se como hacerlo.

Es decir , cuando corro el programa un botón hace que la imagen aparezca, pero necesito también poder hacerle click a esa imagen y ejecutar una función.

Gracias por su ayuda.

Ruso

Prueba a crear la imagen en tiempo de diseño, pero manteniéndola oculta(propiedad Visible=false), y que lo que haga el botón en vez de crearla sea solo mostrarla, y asi puedes definir el evento OnClick de la imagen en tiempo de diseño.

_Viktor

Holas, si quieres hacerlo en forma completamente dinamica hazlo asi:

Código: Text

 
/****************UNIT1.H**********/
//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TButton *Button1;
        TImage *Image1;
        void __fastcall Button1Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
        void __fastcall MiOnClick(TObject *Sender);
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
 
 
 

y finalmente:

Código: Text

 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
  TImage *Imagen = new TImage(this);
  Imagen->Top = 10;
  Imagen->Left = 10;
  Imagen->Parent=this;//Form1
  Imagen->Picture->LoadFromFile("d:avathar2.bmp");
  Imagen->Show();
  Imagen->OnClick = MiOnClick;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::MiOnClick(TObject *Sender)
{
  ShowMessage("Esta haciendo Click!");
}
//---------------------------------------------------------------------------
 
 
 

Asi asignas en tiempo de ejecucion el evento MiOnClick al OnClick de Imagen, con lo que te ahorras poner un TImage en diseño, que creo es lo que querias evitar. Espero te sirva aun.

Saludos.-:good:

Satyr

Tambien puedes hacer lo siguiente

void __fastcall TForm1::Button1Click(TObject *Sender)
{

Image1->Picture->LoadFromFile("c:imagen.jpg");
Image1->Stretch = true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Image1Click(TObject *Sender)
{
//Aqui llamas a tu funcion
}
//---------------------------------------------------------------------------

Espero q esto te sirva de ayuda

_Viktor

Citar

Originalmente publicado por Satyr
Tambien puedes hacer lo siguiente

void __fastcall TForm1::Button1Click(TObject *Sender)
{

Image1->Picture->LoadFromFile("c:imagen.jpg");
Image1->Stretch = true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Image1Click(TObject *Sender)
{
//Aqui llamas a tu funcion
}
//---------------------------------------------------------------------------

Espero q esto te sirva de ayuda

Satyr, creo que la idea era usar un TImage Creado en tiempo de ejecucion y asignarle un evento en forma dinamica, cosa que no veo en tu codigo. ¿Estoy en lo correcto ?

Saludos!

unload

Saludos: bueno este trozo de codigo es para crear imagenes en tiempo de ejecución y al dar click saber sobre que imagen se esta dando click

for(int i=1;i<=(Form1->Table1->FieldByName("Numero_equipos")->AsInteger);i++)
{
Ima= new TAnimate(Form1);
Ima->Top = posy;
Ima->Left = posx;
Ima->Parent = Form1;
Ima->CommonAVI = aviFindComputer;
Ima->Active = true;
Ima->Cursor =crHandPoint;
Ima->AutoSize = true;
Ima+=50;
Ima->Tag=1;//aqui esta el truco para saber sobre que imagen se esta dando
//click
Ima->OnMouseDown=funcion;
Ima->Hint = "En espera de Cliente";
Ima->ShowHint = true;
if(i%10==0){
posx=30;
posy+=100;
}
//y asi quedaria la funcion

void __fastcall Servidor::valores(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
int quien_es;
TImage *x;
x=(TImage*)Sender;

Form1->Label1->Caption = x->Tag;

}
// y listo
Bueno espero les sirva