Необходимо реализовать игру: На панели находятся N лунок, число которых вводит пользователь. В лунках - шары белого или черного цвета. За 1 раз пользователь может менять местами 2 любых шара. Цель игры - сначала идут белые шары, затем черные. Для победы в игре нужно сделать не больше n/2 ходов.
Создаю лунки динамически, в списке компонентов их нет. Вот код
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | procedure TForm1.FormCreate(Sender: TObject);
var i,j: integer;
begin
for i:= 1 to N do
begin
figura[i] := TShape.Create(Form1);
figura[i].Parent := Panel1;
figura[i].Height:= 35;
figura[i].Left := 650-40*i;
figura[i].Top := 53;
figura[i].Brush.Color:=clwhite;
figura[i].Shape:=stCircle;
figura[i].Enabled:=False;
figura[i].DragMode := dmAutomatic;
end;
end;
|
Потом сделала рандомное окрашивание в черный или белый цвет.
Вопрос: Как теперь обратиться к Shape, чтобы их можно было перетаскивать друг на друга (процедуры DragDrop и DragOver).
Заранее всем спасибо за любую помощь!
15.01.2013, 00:25
Игра, с использованием протокола Drag&Drop
Линейный вид
