PDA

View Full Version : خطای Control '' has no parent window



mbshareat
سه شنبه 11 خرداد 1389, 01:48 صبح
من قبلا کمپوننت دکمه ای ساخته بودم که بی مشکل کار می کرد:قهقهه:
حالا می خوام یه کمپوننت دیگه بسازم .کد کمپوننت قبلیم رو کپی گرفتم و کمی تغییر دادم
اما این بار با اینکه بدون مشکل کامپایل می شه اما هنگام قرار دادن روی فرم پیغام زیر رو میده(که البته دستور ترسیم بر رو ی Canvas رو ایراد می گیره)::گیج:
Control '' has no parent window
من خیلی تو سایتای خارجی جستجو کردم لطفا به من بگین مشکل از کجاست چون خیلی برام حیاتیه. این هم از کد کامپوننت جدیدم که خطا می گیره::متفکر:

hamedsadry3000
شنبه 15 خرداد 1389, 09:08 صبح
: procedure TForm1.FormCreate(Sender: TObject);
: begin
: postIt := TPostIt.Create(Self);
PostIt.Parent := Self;
: postIt.Top := 1;
: postit.Left := 1;
: postit.OnPaint := FormPaint;
: end;


constructor TMyControl.Create(AOwner: TComponent); override;
begin
if AOwner is TWinControl then
Create(AOwner, TWinControl(AOwner))
else
Create(AOwner, nil);
end;

constructor TMyControl.Create(AOwner: TComponent; AParent: TWinControl); virtual; reintroduce;
begin
inherited Create(AOwner);
Parent := AParent;
end;

mbshareat
سه شنبه 18 خرداد 1389, 02:22 صبح
راستش من مبتدی هستم و از PostIt چیزی نمی دونم.:متعجب:
ببخشید که بی تجربه نظر می دم.اما من می خواهم بتونم به راحتی کامپوننت رو روی فرم بذارم و این فرامین کمکی به قرار دادن کامپوننتم بر روی فرم نمی کنه.:شیطان:
البته من دوباره اجزاء کامپوننت رو سر هم کردم و نمی دونم چرا این بار کار می کنه.:قلب:
در هر صورت ممنون.خدا حفظتون کنه!:لبخندساده: