Hola linuz, cuando creas cada panel puedes asignar la propiedad Tag a cada TPanel asi podras identificar sobre cual se hizo click y seria bueno que le dieras un nombre a cada Panel.
Código Delphi [-]
while i <12 do
begin
i := i +1;
boton := TPanel.Create(Self);
boton.parent := Panel2;
boton.Name := 'Boton'+IntToStr(i);
boton.left := 61;
boton.Left := boton.Left* i;
boton.Width := 60;
boton.top := 1;
boton.Caption:= inttostr(i) + ':00';
boton.Tag := i;
boton.OnClick := Clic;
end;
.........
procedure TForm1.clic(Sender: TObject);
begin
case TPanel(Sender).Tag of
1: showmessage('Se ha presionado en '+TPanel(Sender).Name);
2: showmessage('Se ha presionado en '+TPanel(Sender).Name);
3: showmessage('Se ha presionado en '+TPanel(Sender).Name);
4: showmessage('Se ha presionado en '+TPanel(Sender).Name);
5: showmessage('Se ha presionado en '+TPanel(Sender).Name);
....
.....
end;
end;
saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Última edición por Caro fecha: 07-12-2007 a las 14:01:52.
|