| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Pomogite! [Delphi, Windows]

greatdozen ©   (2002-06-05 15:20:00) 

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:00) [1]

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

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

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

---

Наверх