Delphi. Drag&Drop треугольник

[Sapsanbl4]

Уважаемые форумчане.
Помогите мне пожалуйста с реализацией механизма Drag&Drop в программе.

Задача: Определить тип треугольника по его сторонам (не существует, прямоугольный, равносторонний и т.д). Три Edit'a (для ввода длин сторон) и label (вывод результата).

Эту задачу я сделал за пол-часа, а впереди еще 2 недели практики. Появилась идея нарисовать треугольник так, что бы его можно было "таскать его за углы" и программа все так же определяла вид треугольника. Идея идеей, но как реализовать не знаю. Прошу помощи

[Stilet]

Предлагаю такую схему:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var b:boolean;
  Form1: TForm1;
 a:array[1..3,1..2] of integer;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 a[1,1]:=10;a[1,2]:=10;
 a[2,1]:=50;a[2,2]:=500;
 a[3,1]:=500;a[3,2]:=100;

end;

procedure TForm1.FormPaint(Sender: TObject);
var i:integer;
begin
 Canvas.MoveTo(a[1,1],a[1,2]);
 for i:=1 to 3 do begin
   Canvas.LineTo(a[i,1],a[i,2]);
 end;
 Canvas.LineTo(a[1,1],a[1,2]);
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);

begin
 b:=true;

end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var i:integer;
begin
 if b then begin
    for i:=1 to 3 do begin
    if (abs(x-a[i,1])<50)or(abs(y-a[i,2])<50) then begin
      a[i,1]:=x;
      a[i,2]:=y;
      Repaint;
      exit;
    end;
   end;
 end;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
b:=false;
end;

end.

Идея ясна?

[Sapsanbl4]

В общих чертах да. Но есть еще один глупый вопрос. Какой компонент нужно кинуть на форму? Или рисует в форме?

[Stilet]

Или рисует в форме?

Именно. Ничего стороннего.

[Sapsanbl4]

Хм... Только вот не рисует у меня в форме. Попробывал другие примеры, наподобии этого - та же история. С чем может быть связано?

[Zer0]

http://dl.dropbox.com/u/41449615/Triangle.rar
Вот для примера реализация

[Stilet]

С чем может быть связано?

С тем что ты тупо вставил код, забыв указать в Object Inspector-e события, описанные в коде.
или так:

procedure TForm1.FormCreate(Sender: TObject);
begin
 a[1,1]:=10;a[1,2]:=10;
 a[2,1]:=50;a[2,2]:=500;
 a[3,1]:=500;a[3,2]:=100;

 onpaint:=FormPaint;
 onmousemove:=FormMouseMove;
 onmousedown:=FormMouseDown;
 onmouseup:=FormMouseUp;
end;

[Serge_Bliznykov]

    if (abs(x-a[i,1])<50)or(abs(y-a[i,2])<50) then begin

а я бы, кстати, уменьшил величину "погрешности", по которой определяется, за какую вершину треугольника "схватились" мышкой.. иначе, если расстояние между вершинами будет меньше 50, перетаскивать можно будет только первую вершину...
думаю, что погрешности abs(...)<5 будет вполне достаточно.

код не проверял, пишу исключительно по интуиции...

[Sapsanbl4]

Язык начал изучать совсем недавно, многого еще не знаю.
Так что

С тем что ты тупо вставил код, забыв указать в Object Inspector-e события, описанные в коде.

да ты прав
Сейчас буду сидеть, изучать код. Большое спасибо Stilet, Zer0 и Serge_Bliznykov за помощь.