| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
AnQr
Cdt
Registrado: 12 Ene 2007Mensajes: 2
|
 Publicado: Vie 19 Ene, 2007 5:02 pm Asunto: Eventos dinamicos |
 |
|
Hi a todos! tengo un problemilla, estoy haciendo un proyecto y creo objetos (Timage) dinamicamente pero necesito que cuando cree dichos objetos en su evento onClick por ejemplo insertarles codigo para que haga una determinada accion.¿si alguien sabe podria explicamelo?Gracias.
Saludos. |
|
| Volver arriba |
|
 |
Buildero
Master
Registrado: 23 Dic 2003Mensajes: 523Ubicación: Puebla, México
|
| Publicado: Vie 19 Ene, 2007 5:36 pm Asunto: |
|
|
Que tal AnQr, bienvenido(a) al foro.
lo que necesitas es crear los metódos correspondientes y posteriormente asignarlos al evento que corresponda.
Aqui va un ejemplo utilizando botones.
En el cuerpo de la clase declaras el método que se asignará al avento, con los parámetros necesarios.
| Código: | class TForm1 : public TForm
{
__published: // IDE-managed Components
TButton *Button1;
void __fastcall Button1Click(TObject *Sender);
private: // User declarations
//
//Aqui declaramos el método que sera asignado al evento
//
void __fastcall MiBotonClick(TObject *Sender);
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
|
Este es códgo que se ejecturá al presionar el botón dinámico
| Código: | void __fastcall TForm1::MiBotonClick(TObject * Sender)
{
ShowMessage("Has hecho click en un botón creado dinámicamente");
} |
Y por ultimo lo probamos agregando un botón a un formulario y escribimos es siguiente código
| Código: |
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TButton * MiBotonDinamico = new TButton(this);
MiBotonDinamico->Parent = this;
MiBotonDinamico->Caption = "Presioname";
MiBotonDinamico->Left = this->Width / 2;
MiBotonDinamico->Top = this->Height / 2;
//Esta es la parte importante, donde asignas el método MiBotonClick
//al evento OnClick del botón que se ha creado dinámicamente
MiBotonDinamico->OnClick = MiBotonClick;
}
//---------------------------------------------------------------------------
|
Saludos!
_________________
Quien hace una pregunta teme parecer un ignorante durante cinco minutos, quien no pregunta se mantiene ignorante toda la vida. |
|
| Volver arriba |
|
|
AnQr
Cdt
Registrado: 12 Ene 2007Mensajes: 2
|
| Publicado: Vie 19 Ene, 2007 7:14 pm Asunto: |
|
|
Un millon de gracias Buildero, he aplicado tu solucion y perfecto.
Un saludo. |
|
| Volver arriba |
|
|
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
