Класс TGraphicControl

[avd]

Здравствуйте!
Можно ли сделать что-то подобное:

TElips = class(TGraphicControl)
public
  procedure Paint; override;
  constructor Create(AOwner: TComponent); override;
end;

constructor TElips.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Width := 16;
  Height := 16;
  Top := 20;
  Left := 20;
  Visible := true;
end;

procedure TElips.Paint;
var
  R: TRect;
begin
  Canvas.Brush.Color := clRed;
  R := ClientRect;
  Canvas.Ellipse(R.Left, R.Top, R.Right, R.Bottom);
end;

procedure TForm1.FormActivate(Sender: TObject);
var
  Elips: TElips;
begin
  Elips := TElips.Create(self); // self - ??? или что ???
  Elips.Paint;
end;

Другими словами заинтересовал такой вопрос - можно ли вывести на форму визуальный компонент (например PaintBox) программным способом.

[StriderX]

Сообщение от avd

Здравствуйте!
Можно ли сделать что-то подобное:
...
Другими словами заинтересовал такой вопрос - можно ли вывести на форму визуальный компонент (например PaintBox) программным способом.

Ммм... если верно понял вопрос, то очень сильно будет зависеть от реализации этого компонента. Сама идеология винды подразумевает не рисовать лишнего, поэтому если компонента нет на экране, то он нигде и не рисовался => не с чего "снять изображение" для "программной отрисовки". Дальше начинаются пляски с WM_PRINT\WM_PRINTCLIENT и т.п.
Если компонент на экране есть и он не оверлейный, то можно его отобрать стандартным блиттингом.
PS: ну и бесконечно создавать объекты при активации формы - не лучшее решение.

[evg_m]

Другими словами заинтересовал такой вопрос - можно ли вывести на форму визуальный компонент (например PaintBox) программным способом.

отрисовкой "ведает" TControl.Parent: TWinControl
Create(owner: TComponent) [собственник/хозяин] отвечает за управление временем жизни. При разрушении собственника все его дети также будут автоматически(без участия программиста!) разрушены.

 Elips := TElips.Create(self); 
 Elips.Parent:=self;
 Elips.Parent:=self.Panel2;