PageControl

← →
[BAD]Angel © (2004-04-19 14:48) [0]

Вопрос следующего характера:

Есть PageControl на нем несколько закладок, добавляються динамически... В каждой закладке по TWebBrowser... как определить какой компонент Browser находиться на активной закладке и как нужному Browseru переслать ссылку?

← →
Ega23 © (2004-04-19 15:00) [1]

procedure TForm1.Button1Click(Sender: TObject);
var
ts:TTabSheet;
edit:TEdit;
begin
ts:=TTabSheet.Create(PageControl1);
ts.PageControl:=PageControl1;
ts.Caption:="Tab"+IntToStr(PageControl1.PageCount);
edit:=TEdit.Create(ts);
edit.Parent:=ts;
edit.Top:=10;
edit.Left:=10;
edit.Text:="Edit"+IntToStr(PageControl1.PageCount);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i:Integer;
begin
for i:=0 to PageControl1.ActivePage.ControlCount-1 do
begin
if (PageControl1.ActivePage.Controls[i] is TEdit) then
begin
(PageControl1.ActivePage.Controls[i] as TEdit).Text:="FUCK!!!!";
Break;
end;
end;
end;

Спасибо

PageControl Найти похожие ветки