[[Lepe]]

uff, que lío. Entre que uno edita y borra el contenido, gente nueva preguntando... ya no sé ni lo que se pregunta.

waly2k1 espero que ese código te sirva de algo, si no, pregunta de nuevo.

Raiza ¿puedes explicar más detalladamente lo que necesitas?
Porque crear 100 o 300 botones y que hagan exactamente lo mismo no es tan complejo (aunque puede llegar a serlo ).

Un ejemplo:

Código Delphi [-]
procedure TForm1.HaciendoClick(Sender:TObject);
begin 
  Showmessage('hecho clic en un botón');
end;

procedure TForm1.Button1Click(Sender:TObject);
var i:integer;
begin 
  for i:= 0 to 5 do
  With Tbutton.Create(Self) do
  begin 
      SetBound(0, i*10, 50,50);
     Parent := self;
     OnClick := HaciendoClick; // asignar el evento.
  end;
end;

Bastaría definirse varios eventos de tipo onmouseDown, onEnter, etc y después asignarlo por código.


Saludos