Скачать: CL | DM;

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.01 c