Как привязать Label к Shape?

← →
Niko © (2002-12-18 16:28) [0]

Тема такая в программе необходимо перетастивать Shape"ы с надписями, при пертаскивании само сабой перетаскивается только Shape, а Label остается (конечно можно сделать чтобы при опускании Shapa Label пермещался туда куда надо, но проблема в том что пользователь может сначала ткнуть в Label и никого переноса), или подскажите более лучший вариант (компонент).

← →
Skier © (2002-12-18 16:31) [1]

>Niko
А тебе обязательно так...?
Может просто рисовать текст на канве Shape ?

← →
Niko © (2002-12-18 16:39) [2]

А она есть, эта канва?

>Niko

TGraphicControl = class(TControl)
private
FCanvas: TCanvas;
procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
protected
procedure Paint; virtual;
property Canvas: TCanvas read FCanvas; //а это вот что ?

Как привязать Label к Shape? Найти похожие ветки