Текущий архив: 2002.06.17;
Скачать: 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 вся ветка
Текущий архив: 2002.06.17;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.01 c
