ایجاد tab sheet در حال اجرا برنامه

يه فرمي دارم كه در آن يه كامپوننت page control قرار داده شده ..چطوري مي تونم در حال اجرا با زدن روي buttonيه tab sheet به آن اظافه بشه و هر تعداد tab sheetخواستیم ایجاد کنیم و مشکلی برای نام tab sheet ها ایجاد نشه؟

با سلام
اگه منظورتون را درست فهميده باشم خوب رو onclick دکمه می نویسی tabsheet.visible:=true
البته به احتمال زیاد منظورتون یه چیز دیگه است اگه این جوریه بیشتر توضیح بدید

منظورم اين است كه در حال اجراي برنامه يه تب شيت اضافه شود و در اضافه شدن محدوديت نداشته باشد

عزیز من خوب منظور پاسخ من هم همین بود
در ضمن از من که محدودیت نداره
اگه منظورتون چیز دیگه ای است خواهشاً بیشتر توضیح بدید

نقل قول:

---

نوشته شده توسط jamjid

يه فرمي دارم كه در آن يه كامپوننت page control قرار داده شده ..چطوري مي تونم در حال اجرا با زدن روي buttonيه tab sheet به آن اظافه بشه و هر تعداد tab sheetخواستیم ایجاد کنیم و مشکلی برای نام tab sheet ها ایجاد نشه؟

---

سلام
چقدر فهم زبان فارسي سخت شده

اينو ببينيد :

کد:

---

procedure TForm1.Button1Click(Sender: TObject);
//var PageControl1: TPageControl;
var TabSheet: array [1..10] of TTabSheet;
var I : integer;
var minI : integer;
var maxI : integer;
begin
  minI := 1;
  maxI := 10;
//  PageControl1 := TPageControl.Create( Self );
//  PageControl1.Parent := Self;
  for I := minI to maxI do
  begin
  TabSheet[ I ] := TTabSheet.Create( Self );
  TabSheet[ I ].Parent := Self;
  TabSheet[ I ].PageControl := PageControl1;
  end;
end;

---

قبلش بايد يك كنترل TPageControl روي صفحه قرار داشته باشد. اگر بخواهيد آنرا را هم خودتان با كد بسازيد 3 خط توضيح را فعال كنيد.

جناب non force از كمكتان ممنون روش شما كاملا صحيح است ولي من از روش زير رفتم

کد:

---

var
  ATabSheet: TTabSheet;
 begin
 ATabSheet := TTabSheet.Create(PageControl1);
  with ATabSheet  do
  begin
    Parent := PageControl1;
    PageControl := PageControl1;
    Caption := 'test';
  end;

---

كارم هم راه افتاد ولي يه مشكل ديگه اينكه چطوري ميتونم توي اين تب شيت اضافه شده يه كامپوننت web browserاضافه كنم؟.... ممنون




راستي فكر كنم اون دوست گرامي هم ديگه فهميد من چي مي خوام!!!

نقل قول:

---

نوشته شده توسط jamjid

جناب non force از كمكتان ممنون روش شما كاملا صحيح است ولي من از روش زير رفتم

کد:

---

var
  ATabSheet: TTabSheet;
 begin
 ATabSheet := TTabSheet.Create(PageControl1);
  with ATabSheet  do
  begin
    Parent := PageControl1;
    PageControl := PageControl1;
    Caption := 'test';
  end;

---

كارم هم راه افتاد ولي يه مشكل ديگه اينكه چطوري ميتونم توي اين تب شيت اضافه شده يه كامپوننت web browserاضافه كنم؟.... ممنون




راستي فكر كنم اون دوست گرامي هم ديگه فهميد من چي مي خوام!!!

---

سلام
قصد داريد IE تب دار بسازيد؟ نسخه 7 مرورگر اينترنت را يك نگاه بندازيد.
ولي با اين كد مي تونيد كاري را كه ميخواهيد انجام دهيد :

کد:

---

var
 WebBrowser1: TWebBrowser;
begin
 WebBrowser1 := TWebBrowser.Create(Self);
 WebBrowser1.ParentWindow := TabSheet1.Handle;
 WebBrowser1.Align := alClient;
 WebBrowser1.Visible := true;
end;

---

اولا" سلام دوما" عيد فطر مبارك سوما" خوب حدس زدي چهارما" دوست داشتم خودم يه همچين برنامه را بنويسم7 ie هم خیلی وقت پیش دیدم(نسخه بتا) پنجما" من فقط توی این خط مشکل داشتم (WebBrowser1.ParentWindow := TabSheet1.Handle)

اما ششما" يه مشكل ديگه چطوري مي تونم تب شيت فعال رو ببندم با چه دستوري؟ من خودم از اين دستور استفاده كردم ولي جواب نميده

کد:

---

pageControl1.Pages[PageControl1.ActivePageIndex].Free;

---

اگر دستور بهتري داري بنويسي ممنون ميشم
خلاصه کلام دستت درد نکند