Сознание компонента. Похоже глюк делфи.

← →
Grrey (2002-12-03 11:50) [0]

Создаю компонент:

type
TtestEdit = class (TEdit)
private
FDragMode: TDragMode;
public
constructor Create(AOwner: TComponent);
property DragMode read FDragMode write FDragMode default dmAutomatic;
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents("Dr", [TtestEdit]);
end;

constructor TtestEdit.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
DragMode:=dmAutomatic;
end;

end.

Устанавливаеться правильно. Но при создании не меняет свойство. Он даже во время компиляции пропускает процедуру создания? Пробовал менять установки компилятора - непомогло. Это мне нужно для более сложных вещей, но то, что я здесь показал - это первая ошибка!
Заранее спасибо!

← →
Skier © (2002-12-03 11:58) [1]

>Grrey

type
TtestEdit = class (TEdit)
private
FDragMode: TDragMode;
public
constructor Create(AOwner: TComponent);
property DragMode default dmAutomatic;
end;

← →
ЮЮ © (2002-12-03 12:05) [2]

FDragMode: TDragMode; - тоже лишнее, это есть ещё в ТСontrol

← →
Skier © (2002-12-03 12:07) [3]

>ЮЮ
Да. Забыл убрать...

← →
Grrey (2002-12-03 13:16) [4]

Меня не именно это интерисует.
Мне интересно почему он метод создания не компилирует, а это я и сам мог бы сделать. Работа компонента немного сложнее.
Основная проблема - все тоже, но просто в программе работает, а в виде компонента не обрабатывает. Таже ситуация и с MouseMove Пишешь обработчик события (с вызовом механизма предка), а этот код никак не выполняется. Такое впечатление, что компилятор его просто пропускает (хотя в случае с MouseMove компилирует).
Изза чего такое может происходить?

← →
Skier © (2002-12-03 13:20) [5]

>Grrey
Давай не будем гадать "удалось не удалось".
Выкладывай код компонента полностью и напиши конкретно где косяк - тогда разговор будет предметным...

← →
Бурундук (2002-12-03 13:20) [6]

Э, а где же override у конструктора???

← →
ЮЮ © (2002-12-03 13:23) [7]

Что значит "он метод создания не компилирует". Ошибку выдает? Перевести не можешь?

Опа! А слоника и не заметили :)

type
TtestEdit = class (TEdit)
public
constructor Create(AOwner: TComponent); override;
property DragMode default dmAutomatic;
end;

← →
Grrey (2002-12-03 14:16) [9]

Блин!!!!!!
Извините, но как не ругаться, если я тупой идиот!!!!
Вместо override писал overload!
Ну не дебил?

← →
Grrey (2002-12-03 14:17) [10]

Так все работает, спасибо.

Сознание компонента. Похоже глюк делфи. Найти похожие ветки