Компоненты

← →
Леприкон (2003-06-16 14:00) [0]

Осваиваю создание компонент.

type
TTrack = class (TWinControl)

protected

private
procedure WMPaint(var Message: TWMPaint); message WM_Paint;

public
constructor Create(AOwner:TComponent); override;
destructor Destroy; override;

published

end;
.............................

constructor TTrack.Create(AOwner:TComponent);
begin
inherited Create(AOwner);
//далее идёт код с начальными установками
end;

destructor TTrack.Destroy;
begin
inherited;
//далее идёт освобождение выделенных ресурсов
end;
procedure TTrack.WMPaint(var Message: TWMPaint);
begin
inherited;
ShowMessage("I am paint");
end;

Вопрос: почему процедура WMPaint обрабатывается только в дизайнтайм, а в рантайме нет?

Спасибо.

← →
Игорь Шевченко (2003-06-16 14:04) [1]

1) Вместо

destructor TTrack.Destroy;
begin
inherited;
//далее идёт освобождение выделенных ресурсов
end;

Лучше

destructor TTrack.Destroy;
begin
//далее идёт освобождение выделенных ресурсов
inherited;
end;

2) Начни осваиваться с наследника TCustomControl, там есть процедура Paint, ее перекрываешь и рисуешь :)

Компоненты Найти похожие ветки