Component Creation – Joining Components Together?

by

You should make the image a subcomponent of TMyPanel: SetSubComponent

Update: Here is an example

unit MyComponent;

interface

uses
  System.Classes,
  VCL.Controls,
  VCL.Forms,
  VCL.ExtCtrls;

type
  TMyPanel = class(TScrollBox)
  private
    FImage: TImage;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property Image: TImage read FImage;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Standard', [TMyPanel]);
end;

constructor TMyPanel.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

  FImage := TImage.Create(Self);
  FImage.SetSubComponent(true);
  FImage.Align := alClient;
  FImage.Parent := Self;
end;

destructor TMyPanel.Destroy;
begin
  inherited;
end;

end.

More Related Contents:

  1. Why should I not use “if Assigned()” before accessing objects?
  2. Why cannot take address to a nested local function in 64 bit Delphi?
  3. Debugging Access Violation errors?
  4. How to dynamically create controls aligned to the top but after other aligned controls?
  5. Which variables are initialized when in Delphi?
  6. System Error. Code: 8. Not enough storage is available to process this command
  7. Delphi 2010: How to save a whole record to a file?
  8. Registration-free COM/DLL?
  9. I do not understand what Application.ProcessMessages in Delphi is doing [closed]
  10. How do I let Delphi know I’ve already handled an exception?
  11. How do I translate a C union into Delphi?
  12. How to send a HTTP POST Request in Delphi using WinInet api
  13. Delphi Conversion Unicode Issues
  14. Why can Delphi DLLs use WideString without using ShareMem?
  15. How do I run a command-line program in Delphi?
  16. Should the compiler hint/warn when passing object instances directly as const interface parameters?
  17. WWW server reports error after POST Request by Internet Direct components in Delphi
  18. How to add manifest info into delphi project
  19. How to retrieve cpu usage per process
  20. Modifying or deleting a line from a text file the low-level way?
  21. How to disable VCL styles in Delphi
  22. DecimalSeparator in SysUtils and System.SysUtils
  23. Difference between adding a unit to the interface or the implementation section
  24. Delphi subclass visual component and use it
  25. How to declare two inter-linked classes?
  26. Resize PNG image
  27. Delphi control that could mimic “Add-ons|Extension list” of Firefox?
  28. How can I make AllocateHwnd threadsafe?
  29. Can 48×48 or 64×64 icons be obtained from the Vista Shell?
  30. How to cast a Interface to a Object in Delphi

Leave a Comment