VPF::Карточные игры - Форум программистов

newd

Дата 12.3.2009, 07:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 10.3.2009

Репутация: нет
Всего: нет

Здравствуйте! У меня такой вопрос. Предположим, что на столе разложены 32 карты, в 4 ряда по 8 в каждом, и 4 карты в низу. Мы берем одну из нижних 4-х карт и переносим в любое место из верхних 4-х рядов. При этом при щелчке в нужном месте переносимая карта ложится на то место, а карта, которая находилась там, подымается для переноса. Как это можно сделать? smile

Frees

Дата 12.3.2009, 08:03 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54

а как ты уже пробоал делать?

--------------------

Кольцов Виктор Владимирович

Frees

Дата 12.3.2009, 08:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54

Цитата(newd @ 12.3.2009, 09:49

)

Код


procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
  j, n: Integer;
  p: TPanel;
begin
  n := 0;
  for I := 0 to 8 do
    for j := 0 to 4 do
    begin
      p := TPanel.Create(Self);
      with p do
      begin
      parent := Self;
      Height := 50;
      Width := 30;
      left := I * (Width + 10);
      top := j * (Height + 10);
      end;
      with TImage.Create(p) do
      begin
        Tag := n;
        parent := p;
        Stretch := true;
        Align := alClient;
        OnMouseDown := ImgMouseDown;
        ImageList1.GetBitmap(n, Picture.Bitmap);
      end;
      n := n + 1;
    end;
end;

procedure TForm1.ImgMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Sender := TControl(Sender).Parent;
  TControl(Sender).BringToFront;
  ReleaseCapture;
  TControl(Sender).Perform(WM_SYSCOMMAND, $F012, 0);
end;

в примере можно таскать карты в ImageList1 должны быть 32 картинки карт

--------------------

Кольцов Виктор Владимирович

newd

Дата 16.3.2009, 01:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 10.3.2009

Репутация: нет
Всего: нет

У меня компилятор ругается: Undeclared identifier: 'ImgMouseDown'. smile

Frees

Дата 16.3.2009, 07:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54

Цитата(newd @ 16.3.2009, 03:11

)

У меня компилятор ругается: Undeclared identifier: 'ImgMouseDown'. smile

дак объяви этот метод

--------------------

Кольцов Виктор Владимирович

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »