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;