Компонент Опции

[sheka]

Покажите пожалуйста фрагмент кода, где добавляется Parent

[volvo]

Вот так, например:

unit Component2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  timage1 = class(TPanel)
  private
    { Private declarations }
  protected
    { Protected declarations }
    procedure MyOnClick(Sender: TObject);
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
  published
    { Published declarations }
    image1: Timage; // даже сюда поместил, а не в protected, думал видно будет
  end;

procedure Register;

implementation

var b: boolean;
procedure Register;
begin
  RegisterComponents('Samples', [timage1]);
end;
constructor timage1.Create(AOwner: TComponent);
begin
  inherited;
  Self.OnClick := MyOnClick;
  image1 := Timage.Create(Self);
  with image1 do
  begin
    Parent := Self;
    // OnClick := MyOnClick;
    Picture.Bitmap.LoadFromFile('in.bmp');
    Left := self.Left + 10;
    Top := self.Top + 10;
    Height := self.Height - 20;
    Width := self.Width - 20;
    Visible := true;
    Center := true;
    Stretch := true;
    Transparent := true;
  end;
  b := true;
end;

procedure timage1.MyOnClick(Sender: TObject);
begin
  if b = true then
  begin
      self.Canvas.Brush.Color := clBlack;
  end
  else
  begin
      self.Canvas.Brush.Color := clred;
  end;

  image1.Hide;
  self.Canvas.FillRect(Canvas.ClipRect);
  image1.Show;

  b := not b;
end;

end.