Большое Спасибо, это работает
Но есть пару вещей, которые теперь я преодолеть не могу...
1) уточнение по V
Код:
type
vtype = record
form_:TShape;
name_:TLabel;
end;
var v:array of vtype;
У меня есть RadioGroup при ItemIndex = 0 строится вершина с номером (TShape & TLabel), при = 1 при клике на вершину она должна загораться другим цветом. После 2 кликов на разных вершинах между ними проводится линия (ребро)...
Так вот...
У меня выходит так...
Код:
procedure TForm1.FormCreate(Sender: TObject);
var i:word;
begin
for i:=0 to now-1 do // now - количество вершин
begin
v[i].Form_.OnMouseDown:=MMouseDown;
end;
end;
procedure TForm1.MMouseDown(Sender: TObject);
begin
v[abc].Form_.Brush.Color:=clGreen; // abc - номер вершины, но неясно
end; // как этот номер получить...
Вот... и что с этим делать не знаю...