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; end;
end;
Bastaría definirse varios eventos de tipo onmouseDown, onEnter, etc y después asignarlo por código.
Saludos