Рисование стрелки с привязкой на объект

[Korsar chesti]

Здравствуйте уважаемые начинающие и опытные программисты!

Скажите пожалуйста в моей программе чертится прямоугольник при
помощи перетаскивания из панели компонентов (мною же созданный), как начертить между ними линию, с привязкой на эти прямоугольники?

И еще менее значимый вопросик: Как, например, при двойном нажатии на этот прямоугольник сделать так, чтобы открылась новая форма?

Внешний вид программы представлен во вложенных файлах.

Заранее огромное спасибо!

[ArtGrek]

а как ты ети рамки создаеш? можно вписат в их событие движения что б перерисовывала или передвигало линию

Как, например, при двойном нажатии на этот прямоугольник сделать так, чтобы открылась новая форма?

раскажи о рамкеб ты на канве рисуеш?

[Korsar chesti]

Рамки нарисованы на канвасе, Вы правы! Вот часть листинга, думал он не понадобится...

procedure refreshCanvas;
var i,ii: integer;
  tb: nTextBox;
  cl: nClass;
begin
  form1.canv.canvas.brush.Color:=$EFF1F1;
  form1.canv.canvas.FillRect(rect(0,0,form1.canv.Width-1,form1.canv.Height-1));
  with form1.canv.Canvas do for i:=0 to length(nObjects)-1 do
  if (nObjects[i] is nTextBox) then begin
    tb:=(nObjects[i] as nTextBox);
    with tb do begin
      Brush.Style:=bsClear;
      pen.color:=$000000;
      Rectangle(tb.x1,tb.y1,tb.x2,tb.y2);
      textOut(tb.x1,tb.y1,tb.txt);
      //
      //обозначим активный объект:
      brush.Color:=$4040c0;
      pen.color:=brush.Color;
      if (aObject=tb) then for ii:=0 to 3 do
        case ii of
          0: Rectangle(tb.x1,tb.y1,tb.x1+selW,tb.y1+selH);
          1: Rectangle(tb.x2-selW,tb.y1,tb.x2,tb.y1+selH);
          2: Rectangle(tb.x1,tb.y2-selH,tb.x1+selW,tb.y2);
          3: Rectangle(tb.x2-selW,tb.y2-selH,tb.x2,tb.y2);
        end;
    end;
  end else if (nObjects[i] is nClass) then begin
    cl:=(nObjects[i] as nClass);
    with cl do begin
      Brush.Style:=bsClear;
      pen.color:=$000000;
      cl.y2:=cl.y1+nTbH;
      Rectangle(cl.x1,cl.y1,cl.x2,cl.y2);
      textOut(cl.x1,cl.y1,cl.name);
      //
      //перечислим атрибуты
      cl.y2:=cl.y2+nTbH*(length(cl.atrib) or 1);
      Rectangle(cl.x1,cl.y1,cl.x2,cl.y2);
      if (length(cl.atrib)=0) then
        textOut(cl.x1,cl.y1+nTbH,tNoAtr)
      else for ii:=0 to length(cl.atrib)-1 do
        textOut(cl.x1,cl.y1+nTbH*(1+ii),cl.atrib[ii]);
      //
      //перечислим атрибуты
      cl.y2:=cl.y2+nTbH*(length(cl.method) or 1);
      Rectangle(cl.x1,cl.y1,cl.x2,cl.y2);
      if (length(cl.method)=0) then
        textOut(cl.x1,cl.y1+nTbH*((length(cl.atrib) or 1)+1),tNoMet)
      else for ii:=0 to length(cl.method)-1 do
        textOut(cl.x1,cl.y1+nTbH*((length(cl.atrib) or 1)+1+ii),cl.method[ii]);
      //
      //обозначим активный объект:
      brush.Color:=$4040c0;
      pen.color:=brush.Color;
      if (aObject=cl) then for ii:=0 to 3 do
        case ii of
          0: Rectangle(cl.x1,cl.y1,cl.x1+selW,cl.y1+selH);
          1: Rectangle(cl.x2-selW,cl.y1,cl.x2,cl.y1+selH);
          2: Rectangle(cl.x1,cl.y2-selH,cl.x1+selW,cl.y2);
          3: Rectangle(cl.x2-selW,cl.y2-selH,cl.x2,cl.y2);
        end;
    end;
  end;
  form1.canv.Canvas.Refresh;
end;

При обращении к этой процедуре чертится фигура, фигура выделена в отдельный класс.

Екзешник программы скидываю тоже...

Спасибо за ответ и трату своего времени!

[ArtGrek]

И еще менее значимый вопросик: Как, например, при двойном нажатии на этот прямоугольник сделать так, чтобы открылась новая форма?

постав в OnMove того на чем рисуеш, границы координат, и если двоинои клик произоидет в нем открыват форму

как начертить между ними линию, с привязкой на эти прямоугольники?

с привязкой на эти прямоугольники?

procedure refresh(a, b:integer);
begin
//прировняи 1 угол к одному краю линии, а к другому краю, угол другои рамки
end;

а в коде напиши визде где передвигаеш обекты refresh(x,y);