مكون متعدد الادوات

[Delphi4Us]

شكرا حقيقة لم احمل المجلة الا من العدد السابع تقريبا

---

ولكن كل هذه الطرق عند وضعها على النموذج تتحرك مكوناتها الداخلية
لاني الشكل الذي اصممه به تعقيدات وتفاصيل صغيرة لا اريدها ان تتحرك من مكانها عند تحريكها على النموذج

---

هناك طريقة لجعل المكون كله كانه كتلة واحدة مثال

PHP كود :

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. 


وهو استخدام المكونات كانها مكونات فرعية

PHP كود :

FImage.SetSubComponent(true); 


بحال لم يتم ذلك عندها سيمكن الوصول الى اي مكون ويتحرك مع نقرات الفأرة عليه

جربته على الـ Frame ولم ينجح