Текущий архив: 2003.05.12;
Скачать: CL | DM;
Вниз
текст в любой 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;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.013 c
