Не могу добраться до свойств компонента

← →
Мыш (2003-12-05 11:42) [0]

и что самое интересное - делал такое уже не раз, сравниваю с кодом других компонент - то же самое, но там работает, а здесь нет. Бодяга происходит прям в самом начале создания компонента - включаю его в уже существующий пакет, получаю паскальный шаблон, пишу конструктор и.. все. Дальше у меня фантазия кончается, потому что self.capption:="" - ноль эффекта, как и любой оператор в конструкторе.
Вот весь код модуля

unit TBand;

interface

uses
Windows, Messages, SysUtils, Classes, Controls, ExtCtrls,dialogs,graphics;

type
tTimeBand = class(tpanel)
private
{ FCanvas:TCanvas;
FDC:HDC; }
{ Private declarations }
protected
{ Protected declarations }
public
Constructor create(Aowner:Tcomponent);override;

{ Public declarations }
published
{ Published declarations }
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents("My", [tTimeBand]);
end;

{ tTimeBand }

constructor tTimeBand.create(aowner: tcomponent);
begin
inherited;
//parent:=twincontrol(aowner);
Showmessage(" ");
//color:=clblack;
self.Caption :="";
self.Width:=12;
//self.
{FCanvas:=TCanvas.create;
FDC:=getdc(self.Handle);
FCanvas.Handle:=FDC;
FCanvas.Rectangle(0,0,11,11); }
end;

end.

Showmessage(" "); срабатывает, а назначение заголовка, ширины, и все остальное просто игнорируется, причем на них даже точка останова не ставится.

← →
Skier (2003-12-05 11:51) [1]

constructor tTimeBand.create(aowner: tcomponent);
begin
inherited create(aowner);
ControlStyle := ControlStyle - [csSetCaption];
color := clblack;
Caption :="";
Width:=12;
end;

← →
Бушин Сергей (2003-12-05 11:57) [2]

inherited Create(AOwner);

← →
Skier (2003-12-05 12:01) [3]

>Бушин Сергей © (05.12.03 11:57) [2]
inherited Create(AOwner); или inherited - разница только в лучшей читабельности кода.

← →
Ega23 (2003-12-05 13:58) [4]

А Parent почему не поставил?

← →
Мыш (2003-12-06 01:11) [5]

ControlStyle помог, только я не понял, почему? Ведь из конструктора обычно абсолютно любые свойства можно переназначить. А вот глюк с невозможностью установить точки останова пропал, я так ничего и не сделал, кроме ControlStyle , и теперь просто фигею, что же это было? А parent сначала не хотел ставить - это приводит к тому, что появившаяся панель имеет родителем форму, хотя кладешь ее на другую панель. Пришлось поставить Parent, иначе на канве оказалось не порисуешь. Вобщем я в шоке от всего этого.

← →
Skier (2003-12-06 11:19) [6]

← →
KSergey (2003-12-06 12:15) [7]

> Ega23 (05.12.03 13:58) [4]
> А Parent почему не поставил?

Это что еще за глупости?!!

Не могу добраться до свойств компонента Найти похожие ветки