unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
myButtons: array[1..5, 1..5] of TButton;
procedure myButtonClick(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.myButtonClick(Sender: TObject);
begin
if Sender is TButton then
begin
ShowMessage(TButton(Sender).Caption);
//TButton(Sender).propiead es el butotn que le hicieron clik
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
const
ConstWidth = 32;
ConstHeight = 32;
var
i,j: Integer;
begin
for j:=1 to 5 do
for i:=1 to 5 do
begin
myButtons[i,j] := TButton.Create(self);
myButtons[i,j].Caption := 'test';
with myButtons[i,j] do
begin
Width := ConstWidth; // ancho
Height := ConstHeight; //alto
Left := i * ConstWidth; //posicion X
Top := j * ConstHeight; //posicion Y
Parent := Form1; //en donde se dibujan los botones
Caption := IntToStr(Random(60)+1);
onClick := myButtonClick;
Visible := True; //para que se vean
end;
end;
end;
procedure TForm1.FormDestroy(Sender: TObject);
var
i,j: Integer;
begin
for j:=1 to 5 do
for i:=1 to 5 do
myButtons[i,j].Free;
end;
end.