![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как привязать Label к Shape? [D5, D6]
Niko © (2002-12-18 16:28:00)Тема такая в программе необходимо перетастивать Shape"ы с надписями, при пертаскивании само сабой перетаскивается только Shape, а Label остается (конечно можно сделать чтобы при опускании Shapa Label пермещался туда куда надо, но проблема в том что пользователь может сначала ткнуть в Label и никого переноса), или подскажите более лучший вариант (компонент).
Skier (2002-12-18 16:46:00) [1]>Niko
TGraphicControl = class(TControl)
private
FCanvas: TCanvas;
procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
protected
procedure Paint; virtual;
property Canvas: TCanvas read FCanvas; //а это вот что ?
Niko (2002-12-18 16:39:00) [2]А она есть, эта канва?
Skier (2002-12-18 16:31:00) [3]>Niko
А тебе обязательно так...?
Может просто рисовать текст на канве Shape ?