текст в любой 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"); Это имеется в виду ?

способов много - задать имя и найти findcomponent,
или в списке Controls Tabsheet-a, или вносить в массив или список.

текст в любой memo из pagecontrol-а Найти похожие ветки