Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

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;


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

Спасибо



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

Текущий архив: 2004.04.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.031 c
1-1082724306
ivn
2004-04-23 16:45
2004.04.11
TGridDrawInfo?


3-1079095213
stud
2004-03-12 15:40
2004.04.11
непонятно с пользователями


7-1080036182
Victor!
2004-03-23 13:03
2004.04.11
Обмен данными по модему


11-1067411606
SPeller
2003-10-29 10:13
2004.04.11
Интересно...


1-1079974572
Kiber
2004-03-22 19:56
2004.04.11
Преобразование строки в число