Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.03.2013, 22:25   #1
Ivannikov-Vlad
 
Регистрация: 13.03.2013
Сообщений: 6
По умолчанию перемещение

Здравствуйте!
помогите пожалуйста

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, jpeg;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Shape1: TShape;
Shape2: TShape;
Shape3: TShape;
Shape4: TShape;
Shape5: TShape;
Shape6: TShape;
Shape7: TShape;
Shape8: TShape;
Shape9: TShape;
Image1: TImage;
Image2: TImage;
Button2: TButton;
Edit2: TEdit;


procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
b,c:integer;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
var

x:array[1..9]of integer;
y:array[1..9]of integer;
begin
b:=1;
c:=1;
Image1.Left:=Shape1.left;
Image1.top:=Shape1.top;
Image2.Left:=Shape1.left+20;
Image2.top:=Shape1.top+20;
x[1]:=shape1.left;
y[1]:=shape1.top;
x[2]:=shape2.left;
y[2]:=shape2.top;
x[3]:=shape3.left;
y[3]:=shape3.top;
x[4]:=shape4.left;
y[4]:=shape4.top;
x[5]:=shape5.left;
y[5]:=shape5.top;
x[6]:=shape6.left;
y[6]:=shape6.top;
x[7]:=shape7.left;
y[7]:=shape7.top;
x[8]:=shape8.left;
y[8]:=shape8.top;
x[9]:=shape9.left;
y[9]:=shape9.top;

end;



procedure TForm1.Button1Click(Sender: TObject);
var
z,n:integer;
a:string;
x:array[1..9]of integer;
y:array[1..9]of integer;
begin
n:=StrToInt(Edit2.text);
z:=random(6)+1;
Str(z,a);
Edit1.Text:=a;
if n=1
then
begin
b:=b+z;
image1.left:=x[b];
image1.top:=y[b]
end
else
begin
c:=c+z;
image2.Left:=x[c];
image2.Top:=y[c];
end;
end;


end.

отредактируйте код или помогите написать другой. цель такая
первоначально image находятся на shape1 и она должна перемещаться на такой shape[i] i- складывается из "индекса начального" shape и того числа который покажет edit1
edit2 показывает ( вводятся лично человеком) та картинка которая перемещается,
Ivannikov-Vlad вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перемещение в БД Михаил Юрьевич Общие вопросы Delphi 3 02.10.2011 01:14
перемещение ярлыков NiCola999 Общие вопросы C/C++ 9 02.07.2010 00:27
Перемещение объектов _-Re@l-_ Общие вопросы Delphi 10 17.06.2010 12:12
Перемещение картинки Иринка26 Помощь студентам 10 20.04.2010 20:12
перемещение формы CraZZy RabbIt Общие вопросы Delphi 1 16.03.2009 01:38