Pomogite!

← →
greatdozen (2002-06-05 15:20) [0]

procedure TForm1.FormCreate(Sender: TObject);
var i,j: integer;
begin
for i := 1 to 8 do
for j := 1 to 8 do

BEGIN
qua[i,j] := TButton.Create(Form1);
qua[i,j].Width := 25;
qua[i,j].Height := 25;
qua[i,j].Top := 40 + i*22;
qua[i,j].Left := 40 + j*22;
qua[i,j].Parent := Form1
END

end;

qua: array[1..8,1..8] of TButton;

Вопрос: как сделать, чтобы в случае кликания на qua[i,j] (Button)
осуществлялась какая-то функция?
Помогите!

← →
Kaban (2002-06-05 15:27) [1]

procedure TForm1.Button1Click(Sender: TObject);
begin
...
end;

//-------------

qua[i,j].OnClick := Button1Click;

Pomogite! Найти похожие ветки