Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c