Значиться, создал я свой компонент(первый!), "вставил" его в пакет dclusr.dpk и, значиться, скомпилировал ентот пакет(скомпилировалось всё нанмально). Жму закладочку Samples, сидит там мой компонент и хитро лыбиться . Пытаюсь кинуть его на форму, но вместо того, чтобы получилось ожидаемое(мной), происходит ошибка "Control '' has not parent window"(или где-то так...). С чем это связано, и с чем его едят? . И как его(компонент) всё-таки загнать на эту треклятую форму?

Пытался программно вставить.

Код

... private   somecomponent: tsomecomponent; ... somecomponent:= tsomecomponent.create; with somecomponent begin parent:=self; setbounds(x1,y1,x2,y2); ...

- та же ошибка.


Это сообщение отредактировал(а) decoder - 30.6.2004, 19:50

decoder Скажи какие методы ты перекрываешь у него.

paint,resize,create,destroy

Я, значиться, попробовал в коде компонента, в обработчике конструктора написать

Код

self.Parent := TWinControl(AOwner);

После компиляции пакета компонент всё-таки залез на форму и я внезапно придумал множество матерных слов, неведомых доселе . Возникает душераздирающаяя ошибка "Delphi выполнила не допустимую операцию и будет закрыта". Подскажите, это связано с вышенаписанной операцией, иль это ошибки в моём коде?

Мудрено Однако...

Код то приведи(или хотя бы Create). И от какого класса наследуешься?

А я ещё и вышивать умею(это, типа, матроскин сказал )...
Добавлено @ 11:22
<Spawn> Мянутачку...

наследуеться от TGraphicControl

Код

constructor TMyComponent.Create(AOwner: TComponent); begin  inherited Create(AOwner);  self.parent := TWinControl(AOwner);  {дальше идёт заполнение локальных переменных}  ...  {далее вызываеться процедура, которая путём долгих извращений, рисует всякую фигню на канве компонента} end; procedure TPole.paint; begin  inherited paint;  self.Refresh;  {рисуеться то же, что и в проседуре в криэйте} end; procedure TPole.resize; begin  inherited resize;  width := Round(width / nkl) * nkl;  height := width;  self.Refresh;  {рисуеться то же, что и в проседуре в криэйте} end;

Точно не уверен, но попробуй убрать "процедуру, которая путём долгих извращений, рисует всякую фигню на канве компонента" из конструктора. Если я правильно помню, то на данной стадии инициализация компонента еще не закончена. Если так уж нужен коструктор, то переопределяй CreateWnd и рисуй там(этот метод после конструкора вызывается), а лучше все оставить в Paint, так как при визуализации компонента WM_PAINT ему и так поступит.

Не, не то... Я в справочке посмотрел, что такое ОнПэйнт и узнал что это событие может программно вызываться с помощью метода Рэфрэш, который я и вызывал в обработке события ОнПэйнт. Ну а в итоге получался бесконечный вызов события ОнПэйнт...

decoder С чего ты взял что бесконечный? OnPaint вызывается при получение оконной процедурой сообщения WM_PAINT или при принудительной его посылке. Ты убрал код рисования из Create? На чем будет рисоваться то? Контрол еще не инициализирован в это время.

Это сообщение отредактировал(а) <Spawn> - 1.7.2004, 13:52

А я то думаю: чё это у меня компонент какой-то прозрачный... Попробую...

P.S. А оброботка ОнПэйнта всё-таки бесконечная...

Код

TMyComponent.Paint; begin  ...    {Вот мы этот пэйнт вызываем}  self.refresh  ... end;

decoder Ааа, ну дак убери этот Refresh:) - он там ни к чему