Главная страница
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.059 c
3-1079323825
chtr
2004-03-15 07:10
2004.04.11
Помогите с запросом, пожалуйста.


1-1082471791
UnDISCOvery
2004-04-20 18:36
2004.04.11
ActionToolBar. Проблемы с отрисовкой. Как бороть ???


7-1075702265
Met
2004-02-02 09:11
2004.04.11
Игровые автоматы


14-1079654911
mfender
2004-03-19 03:08
2004.04.11
VIZA, MasterCard etc.


14-1081881570
panov
2004-04-13 22:39
2004.04.11
Где найти дополнительное время?