Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Вниз

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

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

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

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

---

← →
[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;

---

← →
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;

---

← →
[BAD]Angel ©   (2004-04-19 15:05) [2]

Спасибо

---

← →
[BAD]Angel ©   (2004-04-19 15:05) [2]

Спасибо

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.048 c