Форум: "Основная";
Текущий архив: 2003.05.12;
Скачать: [xml.tar.bz2];
Внизтекст в любой memo из pagecontrol-а Найти похожие ветки
← →
Zirus (2003-04-29 18:17) [0]Имеем динамическое создание закладки pagecontrol. А вот вопрос: как в любом автосозданном memo написать любой текст? даже если закладка неактивна.
procedure TForm1.Button1Click(Sender: TObject);
var
TabSheet : TTabSheet;
begin
TabSheet := TTabSheet.Create(Self);
TabSheet.Caption := "Tabsheet 1";
TabSheet.PageControl := PageControl1;
with Tmemo.Create(Self) do
begin
Parent := TabSheet;
end;
end;
← →
Skier (2003-04-29 18:20) [1]Memo.Lines.Add("Some text"); Это имеется в виду ?
← →
MBo (2003-04-29 18:20) [2]способов много - задать имя и найти findcomponent,
или в списке Controls Tabsheet-a, или вносить в массив или список.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.05.12;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c