ساخت coolbar برای پنجره دیگر

[joooje]

سلام به همه دوستان
من میخوام بتونم یه coolbar توی یه فرم دیگه بسازم که اون فرم ماله برنامه من نیست
یعنی توی پنجره ی یه برنامه دیگه coolbar رو اضافه کنم
از کد زیر استفاده کردم:




procedure TForm1.Button1Click(Sender: TObject);
var
Hand: THandle;
Object1: TCoolBar;
begin
Hand := FindWindow('TForm1', 'My prog');
object1 := TCoolBar.Create(Self);
object1.ParentWindow := Hand;
object1.Align :=alTop;
end;


با این کد ، coolbar به درستی ساخته میشه
ولی سوال من اینه که چرا object1.Align :=alTop کار نمیده؟ :متفکر:
یعنی coolbar همون گوشه میمونه و اون بالا سرتاسره پنجره رو نمیپوشونه
ممنون میشم راهنمایی کنید
و اینکه آیا میشه برای یک پنجره از یک برنامه دیگه Main Menu ساخت؟ جوری مثل این باشه که منوی همون برنامه هست؟
ممنون

[joooje]

یعنی واقعا راهی نیست!!!
دوستان لطفا راهنمایی کنید