如何在自定义TGraphicControl上拉伸两个图形彼此相邻？

在自定义TGraphicControl上拉伸两个图形彼此相邻，可以通过以下步骤实现：

创建一个自定义的TGraphicControl控件，例如TCustomControl。
在TCustomControl中添加两个图形控件，例如TImage或TBitmap。
设置图形控件的Align属性为alNone，以便可以自由调整它们的大小和位置。
在TCustomControl的OnResize事件中，调整图形控件的大小和位置，以便它们填充整个TCustomControl并彼此相邻。
在TCustomControl的OnPaint事件中，绘制图形控件之间的分隔线或其他装饰效果。

以下是一个简单的示例代码：

unit CustomControl;

interface

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

type
  TCustomControl = class(TGraphicControl)
  private
    FImage1: TImage;
    FImage2: TImage;
    procedure ResizeImages;
  protected
    procedure Paint; override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  end;

implementation

{ TCustomControl }

constructor TCustomControl.Create(AOwner: TComponent);
begin
  inherited;
  FImage1 := TImage.Create(Self);
  FImage1.Parent := Self;
  FImage1.Align := alNone;
  FImage1.Picture.LoadFromFile('image1.bmp');

  FImage2 := TImage.Create(Self);
  FImage2.Parent := Self;
  FImage2.Align := alNone;
  FImage2.Picture.LoadFromFile('image2.bmp');

  ResizeImages;
end;

destructor TCustomControl.Destroy;
begin
  FImage1.Free;
  FImage2.Free;
  inherited;
end;

procedure TCustomControl.Paint;
begin
  inherited;
  // Draw a line between the images
  Canvas.Pen.Color := clBlack;
  Canvas.MoveTo(FImage1.Width, 0);
  Canvas.LineTo(FImage1.Width, Height);
end;

procedure TCustomControl.ResizeImages;
begin
  FImage1.SetBounds(0, 0, Width div 2, Height);
  FImage2.SetBounds(Width div 2, 0, Width div 2, Height);
end;

end.

在这个示例中，我们创建了一个名为TCustomControl的自定义控件，它包含两个TImage控件。在控件的OnResize事件中，我们调整了图像的大小和位置，以便它们填充整个控件并彼此相邻。在控件的OnPaint事件中，我们绘制了图像之间的分隔线。

请注意，这只是一个简单的示例，您可以根据自己的需求进行修改和扩展。