Programación General > C++ Builder

 Re: Evento OnClick

<< < (2/2)

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 :kicking:

Navegación

[0] Índice de Mensajes

[*] Página Anterior