в чем ошибка???

[Сергей58rus]

Объект в дельфи должен передвигаться с помощью мыши...
пожалуйста, подскажите в чем ошибка???



unit Unit1;

interface

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

type
TForm1 = class(TForm)
Image1: TImage;
procedure Image1Click(Sender: TObject);
procedure TformTImage1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure TFormTImage1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
ax, ay: integer;
implementation

{$R *.dfm}

procedure TForm1.Image1Click(Sender: TObject);
begin
Image1.Canvas.MoveTo(285+ax,167+ay) ;
Image1.Canvas. LineTo(275+ax,157+ay);
Image1.Canvas. LineTo(273+ax,168+ay);
Image1.Canvas. LineTo(285+ax,167+ay);

Image1.Canvas. MoveTo(265+ax,155+ay);
Image1.Canvas. LineTo(255+ax,146+ay);
Image1.Canvas. LineTo(253+ax,158+ay);
Image1.Canvas. LineTo(265+ax,155+ay);

Image1.Canvas. MoveTo(290+ax,152+ay);
Image1.Canvas. LineTo(280+ax,162+ay);
Image1.Canvas. MoveTo(270+ax,140+ay);
Image1.Canvas. LineTo(260+ax,150+ay);
Image1.Canvas. MoveTo(300+ax,230+ay);
Image1.Canvas. LineTo(300+ax,170+ay);
Image1.Canvas. MoveTo(350+ax,200+ay);
Image1.Canvas. LineTo(180+ax,200+ay);
Image1.Canvas. MoveTo(300+ax,200+ay);
Image1.Canvas. LineTo(230+ax,150+ay);
Image1.Canvas. LineTo(230+ax,250+ay);
Image1.Canvas. LineTo(300+ax,200+ay);

end;

procedure Tform1.TformTImage1MouseDown(Sender : TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if ssLeft in Shift then
begin
ax:=x-200;
ay:=y-200;
end;
end;
procedure TForm1.TformTImage1MouseMove(Sender : TObject; Shift: TShiftState; X,
Y: Integer);

begin
if ssLeft in Shift then
begin
ax:=x-200;ay:=y-200;
Repaint;

end;
end;


end.

[OlegVE]

Здравствуйте
Посмотрите здесь только код
http://delphi.about.com/od/vclusing/a/dragdrop.htm
До свидания

[Сергей58rus]

Спасибо, но всё равно ничего не понятно раньше на паскале писал...а курсовик заставили на дельфи делать...пытался как в паскале процедуры использовать но ничего не получилось...вот 2 день уже думаю что сделать.

[OlegVE]

1. Вы не можете вольно писать процедуры и функции для компонентов (но можете использовать готовые, но пока не трогайте этот вопрос). Их нужно назначить. Выбираете компонент и в Object Inspector на вкладке Events кликаете в нужном месте и Вас перенесёт в редактор кода, во там и вписываете всё Вам нужное (событие onClick для Image1 создаст, например,

procedure TForm1.Image1Click(Sender: TObject);
begin
// Здесь будет пусто, что Вы и увидите если в конце концов сделаете правильно
end;

). Можете после этого заменить на код из примера.
2. Инициализируйте переменные ax:=x-200;ay:=y-200; (только откуда появляются здесь х и у..) в событии формы onCreate.
3. Посмотрите для начала любой простейший пример программы на Delphi.
4. С "нуля" создайте Ваш проект. Просьте на форму Image1: TImage, добавьте в var ax, ay: integer (что Вы и сделали сами), а дальше сделайте всё, как я написал.