delphi4arab منتديات دلفي للعرب

نسخة كاملة : اضافة Ttabsheet برمجيا
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
عندي Tabsheet1 حيث هذا الاخير يحتوي على memo1

كيف عند الضغط على زر يضيفTabsheet بكل خصائص tabsheet1 مع إدراج Memo بداخله مثل
Internet Explorer 8 عند الضغط New ongle
السلام عليكم

كود :
var tsDynam: TTabSheet; memDynam: TMemo; begin tsDynam := TTabSheet.Create(Self); tsDynam.Name := 'MyTabSheet'; tsDynam.PageControl := PageControl1; memDynam := TMemo.Create(tsDynam); memDynam.Align := alClient; memDynam.Parent := tsDynam;
بالتوفيق
السلام عليكم ورحمة الله

للاستزادة راجع كل من:

إنشاء مكون أثناء التنفيذ !
http://delphi4arab.net/forum/showthread.php?tid=887
انشاء مكون
http://delphi4arab.net/forum/showthread.php?tid=1333
انشآء Forms عند الضغط على زرButton
http://delphi4arab.net/forum/showthread.php?tid=1587
انشاء مكون اثناء وقت التنفي
http://delphi4arab.net/forum/showthread.php?tid=6472