Текущий архив: 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.078 c
