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

[jamjid]

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

[ghabil]

with TTabSheet.Create(PageControl1) do
begin
Parent := PageControl1;
PageControl := PageControl1;
Caption := 'test';
اگر خواستی اسمش رو هم بده نخواستی هم نده خودش میده ...
end;

[jamjid]

چطوری میتونم توی این tab sheet ها ایجاد شده کامپوننت های دیگری هم بگذارم ؟ مثلا برای هر کدام یه edit , button بگذارم ؟

** چطوری میتونم نام tab sheet های ایجاد شده را بدست بیارم؟

[ghabil]

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

// یک Button روی TabSheet:

with TButton.Create(Self) do
begin
Caption := 'test';
Parent := ATabSheet;
end;
//نام TabSheet
ShowMessage(ATabSheet.Name);

[jamjid]

ممنون که کارم را راه انداختی ولی هر کامپوننتی را نمیشه برای tab sheetها گذاشت!
مثلا کامپوننت web browser
برای گذاشتن کامپوننت web browser در tab sheet ها چه دستوری بنویسم؟
دستور ایجاد tab sheet را گفتید (ممنون ) دستور پاک کردن tab sheet فعال را هم بگید ممنون میشم

[ghabil]

چرا نمیشه ؟!


with TWebBrowser.Create(Self) do
begin
Parent := ATabSheet;
...
end;


اینم پاک کردن اکتیو:


PageControl1.Pages[PageControl1.ActivePageIndex].Free;

[jamjid]

جناب قابیل از این دستور در حال اجرا خطا می گیره اگر روشی دیگه بلدی بنویسید ممنون میشم مشکلش نمی دانم چیه ولی فقط روی تب شیت فعلی(فعال) کار میکنه روی تب شیت دیگه (تب شیت بعدی) که می خوام امتحان کنم خطا میگیره

[ghabil]

چه ایرادی میگیره؟ کدومشون؟

[jamjid]

فرض کن 4 تا تب شیت ایجاد کردیم روی تب شیت فعال که باشی دکمه که برای بسته شدن تب شیت را می زنی بسته میشه و خود به خود اولین تب شیت میشه فعال بعد روی هر تب شیت دیگه ای دکمه بسته شدن را بزنی این متن پیغام خطا را میده
raised exception class EAbstractError with message 'Abstract Error'.

Process stopped. Use Step or Run to continue.


یه مشکل دیگه اینکهبرای یه دکمه تعریف کردم که در تب شیت فعال روی edit در تب شیت جیزی بنویسه ولی روی editروی تب شیت آخری می نویسه

[ghabil]

ببین تو کدهایی که نوشتی اشتباه کردی کدهاتو بزار ببینیم ...

[jamjid]

سلام برنامه که شروع به نوشتن آن کردم یه IE تب دار است نمونه ای هم از این برنامه دیدم ولی خواستم خودم این برنامه را بنویسم .
البته من برنامه نویس خوبی نیستم و این چند خط برنامه ای هم که نوشتم با کمک شما دوست عزیز بوده
کد ایجاد تب شیت با تمام اشیا موجود در آن ۞ اسامی که در مقابل on click اشیا هستند نام توابع می باشد ۞

Var Form1: TForm1;
ATabSheet: TTabSheet;
bt:TButton;
btb:TButton;
btf:TButton;
ed:TEdit;
WB: TWebBrowser;


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

// close Button in TabSheet:
bt:=TButton.Create(Self);
bt.Caption := 'x';
bt.OnClick:= pageControl1.Pages[PageControl1.ActivePageIndex].Free;
bt.Parent := ATabSheet;
bt.top:=7;
bt.left:=768;
bt.Width:=15;
bt.Height:=15;

// go Button in TabSheet:
bt:=TButton.Create(Self);
bt.Caption := 'GO';
bt.OnClick:=go;
bt.Parent := ATabSheet;
bt.top:=44;
bt.left:=745;
bt.Width:=39;
bt.Height:=22;


// edit in TabSheet:
//with TEdit.Create(Self) do
ed:=tedit.Create(self);
ed.Parent := ATabSheet;
ed.top:=44;
ed.left:=3;
ed.Width:=735;

// back btn in TabSheet:
btb:=TButton.Create(self);
btb.Caption := 'BACK';
btb.OnClick:= back;
btb.Parent := ATabSheet;
btb.top:=10;
btb.left:=15;
btb.Width:=75;
btb.Height:=30;
btb.Enabled:=false;

// forward btn in TabSheet:
btf:=TButton.Create(self);
btf.Caption := 'FORWARD';
btf.OnClick:=goforward;
btf.Parent := ATabSheet;
btf.top:=10;
btf.left:=95;
btf.Width:=75;
btf.Height:=30;
btf.Enabled:=false;


// stop btn in TabSheet:
bt:=TButton.Create(self);
bt.Caption := 'STOP';
bt.OnClick:=stop;
bt.Parent := ATabSheet;
bt.top:=10;
bt.left:=175;
bt.Width:=75;
bt.Height:=30;

// refresh btn in TabSheet:
bt:=TButton.Create(self);
bt.Caption := 'REFRESH';
bt.Parent := ATabSheet;
bt.top:=10;
bt.left:=255;
bt.Width:=75;
bt.Height:=30;

// home btn in TabSheet:
bt:=TButton.Create(self);
bt.Caption := 'HOME';
bt.OnClick:=gohome;
bt.Parent := ATabSheet;
bt.top:=10;
bt.left:=335;
bt.Width:=75;
bt.Height:=30;

// go search btn in TabSheet:
bt:=TButton.Create(self);
bt.Caption := 'SEARCH';
bt.OnClick:=gosearch;
bt.Parent := ATabSheet;
bt.top:=10;
bt.left:=415;
bt.Width:=75;
bt.Height:=30;

// web browser in TabSheet:
WB := TWebBrowser.Create(Self);
WB.ParentWindow :=ATabSheet.Handle;
wb.Top:=71;
wb.Left:=1;
wb.Width:=790;
wb.Height:=452;
wb.Offline:=true;
wb.FullScreen:=false;
wb.GoHome;
ed.Text:=wb.LocationURL;

// برای اینکه تب شیت ایجاد شده نشان داده شود.
pageControl1.ActivePage:=ATabSheet;
end;

&& تابع gosearch برای go search btn &&


WB.Navigate('http://www.google.com');
ed.Text:='http://www.google.com

@ اولین مشکل اینکه وقتی روی go search btn کلیک می کنم به جای اینکه در تب شیت فعال به سایت گوگل برود در آخرین تب شیت به این سایت می رود.
@ مشکل دوم اینکه وقتی روی دکمه پرینت کلیک می کنم به جای اینکه سایت موجود در تب شیت فعال به printpreview برود سایت موجود در تب شیت آخر به printpreview می رود.

&& دستور برای نشان دادن printpreview &&


WB.ControlInterface.ExecWB(olecmdid_printpreview,o lecmdexecopt_dontpromptuser,EmptyParam,EmptyParam) ;

&& دستور برای zoom کردن سایت &&

wb.OleObject.document.body.style.zoom:=2.0;
@ بازم مثل قبل zoom سایت روی web browser تب شیت آخر انجام میشه
@@خلاصه کلام : هر عملی روی تب شیت آخر ایجاد میشه
@@ آن دکمه close btn که برای بستن تب شیت فعال هست همانطور که گفتم در حال اجرا خطا می گیره

اگه کد ها بد نوشته شده یا درست نوشته نشده بگذارید روی حرفه ای نبودن من منتظر جوابتون هستم..

[ghabil]

اصلا به تب شیت ها کاری نداره که تو یک متغییر Global به نام WB گرفتی بعد هر تبی که میسازی Assignش میکنی به آخرین webBrowserی که میسازی خب بعد طبیعیه که وقتی مثلا میگی WB.Navigate این WB داره به آخرین WebBrowserی که ساختی اشاره کنه .
به نظر من بجای این کار باتنها رو اصلا بزار بالای PageContorler و از هر کدوم یکدونه بساز ، بعد اول هر کدوم بگو WebBrowser ابشیت فعال رو بدست بیارند و بعد روش کار کنند... اگر هم میخوای بزاری روی تب شیتها Ownerشون رو هم ATabSheet بده یعنی Create(ATabSheet)

[jamjid]

جناب قابیل ممنون .... اگه باتن ها را بالای page control بگذارم بعد با چه دستوری web browser تب شیت فعال را بدست آورم که بتونم روش کار کنم

[ghabil]

AnAcitveWB := PageControl1.Pages[PageControl1.ActivePageIndex].FindChildControl('اسم WebBrowserی که ساختی') as TWebBrowser;
AnAcitveWB.Navigate('http://yahoo.com');

[jamjid]

این AnAcitveWB چی ؟ متغیر از چه نوعی ؟ توضیح بیشتر بدید لطفا

[ghabil]

از نوع TWebBrowser دیگه یعنی یک Refrence گرفتی که هر کاری خواستی بتونی با WebBrowserی که روی TabSheetفعال هست بکنی و هی نخوای دوباره پیداش کنی...

[jamjid]

من باتن ها را آوردم بیرون و برای search دستور زیر را نوشتم

AnAcitveWB := PageControl1.Pages[PageControl1.ActivePageIndex].FindChildControl('WB') as TWebBrowser;
AnAcitveWB.Navigate('http://www.google.com');

ولی با پیغام خطا زیر روبرو شدم

Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 004678AE in module' project1.exe'.Read of address 000002F8'.
Process stopped. Use Step or Run to continue.

مشکل از کجاست؟

[ghabil]

خب معلومه که AV میگیری ، WB اسم متغیرته ، اسم کامپونت که نیست باید اونجا اسم کامپونت رو مینوشتی اصلا کدت رو باید اینطوری مینوشتی :


AnAcitveWB := PageControl1.Pages[PageControl1.ActivePageIndex].FindChildControl('WebBrowser1) as TWebBrowser;
AnAcitveWB.Navigate('http://www.google.com');

ضمنا تو که متغییر WB رو داری اصلا نمیخواست دیگه AnActiveWB رو تعریف کنی... همون مینوشتی WB :=Pagecontrol....
راستی اگه زمانی که داری وب بروسر رو روی تب شیت تعریف میکنی بهش اسم داده باشی دیگه بجای webBrowser1 باید اون اسمی که دادی رو بنویسی

[jamjid]

این کار را کردم ولی جواب نداد و همان پیغام خطا ی قبلی را می داد

[ghabil]

خب حتما اسم WebBrowserت رو تعیین کردی تو همین کدها بگر هم بهت گفتم چه جوری میتونی اسمش رو تعیین کنی زمانی که داری میسازیش هم گفتم چجوری میتونی پیداش کنی ، به هر حال تا وقتی AV میگیری ماله اینه که اسمش رو درست سرچ نمیکنی...

[jamjid]

سلام از این بابت که اینقدر به من لطف دارید ممنون
ولی من دیگه موندم چه کارکنم ؟
من برای تعریف وب بروسر این کد رو نوشتم

WB := TWebBrowser.Create(Self);
WB.ParentWindow :=ATabSheet.Handle;
wb.Top:=41;
wb.Left:=1;
wb.Width:=785;
wb.Height:=445;
wb.Offline:=true;
wb.GoHome;

حالا شما می گید چه طوری تعریفش کنم و اسمش رو تعیین کنم تا AV نگیره

با تشکر

[ghabil]

آقا من که بهت گفته بودم Create(Slef( نکن !!! برگد کدهارو بخون معلومه AV میگیری...

[jamjid]

WB := TWebBrowser.Create(ATabSheet);

گذاشتم جواب نداد
WB := TWebBrowser.Create(nil);

گذاشتم جواب نداد

من اصلا نمدونم مشکل از کجاست و این خطا از چیه ؟

چطوری میشه برای این WB اسم گذاشت تا در باتن ها اسمش رو به کار ببریم

[ghabil]

ببین سعی کن خودت هم متوجه بشی چی کار میکنی ، تونوقت دیگه اینطوری گیج نمیشی ، وقتی میزنی


WB := TWebBrowser.Create(ATabSheet);

Owner وب بروسرت میشه اون تب شیتی که روشه در نتیجه وقتی توی Childs تبشیت میگردی پیداش میکنه . اما اگر با Self بروسر رو Creat کنی اونوقت Owner بروسر میشه فرمت و دیگه اگر تو childs تب شیت دنبالش بگردی پیدا نمیشه. اگر جایشو نمیفهمی بگو بیشتر توضیح بدم.

حالا یک استپ عقبتر : وقتی داری وب بروسر رو Creat میکنی میتونی یک خط هم بنویسی


WB.NAme = 'TabWebBrowser'

اگه اینو بزاری بعدا که میخوای Findchildcontrol بکنی همین اسم رو جستجو میکنی اگر نزاشتی اونوقت اسمش شده WebBrowser1 (به شرطی که با ATabSheet کریت کرده باشی).

به همین سادگیه اصلا هم گیج نشو فکر هم نکن داره اتفاق عجیب قریبی میفته ..

[jamjid]

وقتی که بخواهی نام به wb بدی این خطا رو میده

cannot assing to a read-only property
اگه اسم تعریف نکنی و FindChildControl('WebBrowser1') بنویسی همان AV می گیره
در هردو حالت هم با ATabSheet کریت کردم

[ghabil]

ببین داری یک جای دیگه اشتباه میکنی کل کدت رو بزار یک نگاهی بکنیم.

[jamjid]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, OleCtrls, SHDocVw, ExtCtrls, Menus,ActiveX,
Buttons;

type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
File1: TMenuItem;
New1: TMenuItem;
N1: TMenuItem;
Exit1: TMenuItem;
Timer2: TTimer;
Save1: TMenuItem;
N2: TMenuItem;
PrintStup1: TMenuItem;
N3: TMenuItem;
WO1: TMenuItem;
Navigate1: TMenuItem;
Back1: TMenuItem;
Forward1: TMenuItem;
Stop1: TMenuItem;
Refresh1: TMenuItem;
Home1: TMenuItem;
Zomein1: TMenuItem;
RealSize1: TMenuItem;
FindOnThisPage1: TMenuItem;
Sourse1: TMenuItem;
About1: TMenuItem;
Help1: TMenuItem;
About2: TMenuItem;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
N4: TMenuItem;
N5: TMenuItem;
GroupBox1: TGroupBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;
PageControl1: TPageControl;
Button1: TButton;
TabSheet1: TTabSheet;
procedure Button1Click(Sender: TObject);
procedure Exit1Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure Save1Click(Sender: TObject);
procedure PrintStup1Click(Sender: TObject);
procedure WO1Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure FormClick(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }

procedure go (Sender: TObject);

end;

var
Form1: TForm1;
ATabSheet: TTabSheet;
bt:TButton;
ed:TEdit;
WB: TWebBrowser;


implementation

uses Math;

{$R *.dfm}


procedure tform1.go (Sender: TObject);
begin
wb.Navigate(ed.Text);
ATabSheet.Caption:=ed.Text;
end;

////***** for save page******\\\\
procedure WB_SaveAs_HTML(WB:TWebBrowser; const FileName : string);
var
PersistStream: IPersistStreamInit;
Stream: IStream;
FileStream: TFileStream;
begin
if not Assigned(WB.Document) then
begin
ShowMessage('Document not loaded!');
Exit;
end;
PersistStream := WB.Document as IPersistStreamInit;
FileStream := TFileStream.Create(FileName, fmCreate);
try
Stream := TStreamAdapter.Create(FileStream, soReference) as IStream;
if Failed(PersistStream.Save(Stream, True)) then
ShowMessage('SaveAs HTML fail!');
finally
FileStream.Free;
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
ATabSheet := TTabSheet.Create(PageControl1);
with ATabSheet do
begin
Parent := PageControl1;
PageControl := PageControl1;
end;

// ?? close Button ??? TabSheet:
bt:=TButton.Create(ATabSheet);
bt.Caption := 'x';
bt.OnClick:=Exit1Click;
bt.Parent := ATabSheet;
bt.top:=0;
bt.left:=768;
bt.Width:=15;
bt.Height:=15;

// ?? go Button ??? TabSheet:
bt:=TButton.Create(ATabSheet);
bt.Caption := 'GO';
bt.OnClick:=go;
bt.Parent := ATabSheet;
bt.top:=16;
bt.left:=740;
bt.Width:=39;
bt.Height:=21;


// ?? edit ??? TabSheet:
ed:=tedit.Create(ATabSheet);
ed.Parent := ATabSheet;
ed.top:=16;
ed.left:=3;
ed.Width:=735;

// ?? web browser ??? TabSheet:
WB := TWebBrowser.Create(ATabSheet);
WB.ParentWindow :=ATabSheet.Handle;
wb.Top:=41;
wb.Left:=1;
wb.Width:=785;
wb.Height:=445;
wb.Offline:=true;
wb.GoHome;


ed.Text:=wb.LocationURL;
pageControl1.ActivePage:=ATabSheet;
end;

procedure TForm1.Exit1Click(Sender: TObject);
begin
pageControl1.Pages[PageControl1.ActivePageIndex].Free;
end;

//for open html page
procedure TForm1.N1Click(Sender: TObject);
begin
If OpenDialog1.Execute then begin
ed.Text:=OpenDialog1.FileName ;
wb.Navigate(ed.Text);
end;
end;

//for save html page
procedure TForm1.Save1Click(Sender: TObject);
begin
if savedialog1.Execute then
begin
WB_SaveAs_HTML(WB,savedialog1.FileName+'.Html');
end;
end;

//for print the page
procedure TForm1.PrintStup1Click(Sender: TObject);
begin
WB.ControlInterface.ExecWB(olecmdid_printpreview,o lecmdexecopt_dontpromptuser,EmptyParam,EmptyParam) ;
end;

//work offline true or false
procedure TForm1.WO1Click(Sender: TObject);
begin
if wo1.Checked=true then begin
wo1.Checked:=false;
wb.Offline:=false;
end
else begin wb.Offline:=true; wo1.Checked:=true; end;
end;

procedure TForm1.BitBtn6Click(Sender: TObject);
begin
WB := PageControl1.Pages[PageControl1.ActivePageIndex].FindChildControl('WebBrowser1') as TWebBrowser;
WB.Navigate('http://www.google.com');
end;

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
WB := PageControl1.Pages[PageControl1.ActivePageIndex].FindChildControl('WebBrowser1') as TWebBrowser;
WB.GoHome;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
WB := PageControl1.Pages[PageControl1.ActivePageIndex].FindChildControl('WebBrowser1') as TWebBrowser;
WB.GoBack;

end;

end.
این همه کدی که من نوشتم

[ghabil]

تو که اینو گذاشتی DFMش رو هم میزاشتی دیگه که اجرا کنم کدتو...

[jamjid]

اینم کل پروژه
http://hosseindn.persiangig.com/webbrowser.rar
منتظر جواب هستم

[ghabil]

آقا راست میگفتی اینWrapper خاک بر سر هم Name هم Parentش ReadOnly هستند و Name رو هم خودش خالی ست میکنه ، برای همین کد رو اینطوری عوض کن :


در پیدا کردن بروسر :


var
i: Integer;
begin
with PageControl1.Pages[PageControl1.ActivePageIndex] do
for i:= 0 to ComponentCount - 1 do
if Components[i] is TWebBrowser then WB := Components[i] as TWebBrowser;
WB.GoBack;

[jamjid]

آقا قابیل ممنون
ببینم برای دسترسی به منوی favorites و history دستوری داری ؟