Форум: "Основная";
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];
ВнизНУ НЕ МОГУ ПОНЯТЬ!!!! Найти похожие ветки
← →
PVOzerski (2002-03-25 11:13) [11]С просто tMemo у меня получилось вот такое...
procedure TForm1.Button2Click(Sender: TObject);
var
i:longint;
c:tControl;
begin
for i:=0 to pred(PageControl1.ActivePage.ControlCount)do
begin
c:=PageControl1.ActivePage.Controls[i];
if c is tMemo then
begin
tMemo(c).Lines.Add("Eureca!");
break;
end;
end;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c