LabeledEdit + UpDown

← →
Александр-И © (2003-06-16 17:09) [0]

Создаю компонент на основе TLabeledEdit + TUpDown. В качестве базового класса взял TLabeledEdit, в процедуре которого WMCreate создается UpDown:

procedure TFloatEditUpDown.WMCreate(var Message: TMessage);
begin
UpDownForFloatEdit:=TUpDown.Create(Self);
UpDownForFloatEdit.FreeNotification(Self);
UpDownForFloatEdit.Visible:=True;

SetUpDownPosition;
........
end;

Пока зоздавал новый компонент динамически (во время тестирования), все работало. Как только откомпилировал компонент и попробовал его поместить на форму, UpDown перестал быть виден (при этом он создается, ему присваиваются значкния, никаких ошибок не возникает). Что бы это значило?.

← →
Skier © (2003-06-16 17:10) [1]

А про inherited не забыл ?

Всем отбой.
Перезагрузил Windows - глюки исчезли.
Осанна, Гейтс, осанна, суперстар, заррраза!

LabeledEdit + UpDown Найти похожие ветки