Доступ к RichEdit

← →
Alessio2003 (2003-02-22 00:13) [0]

У меня есть PageControl, на нём автоматически при нажатии на кнопку создаются новые закладки с RichEdit на ней. Как мне при PageControlOnChange узнать имя этого RichEdit на активной закладке?

Я делаю чат. Мне нужно, чтобы из edit"a текст выводился в RichEdit на активной в данной момент страничке.

Спасибо за содействие :о)

← →
SeNtiMeL © (2003-02-22 00:36) [1]

Я тоже пишу чат сейчас :)... И этот вопрос решил просто...
Я создаю RichEdit.Parent:=TabSheet; //новый TabSheet, новый RE.
Когда щелкаешь по закладкам, я не узнаю имя а просто делаю так.
TRichEdit(TabSheet.Components.Component[0]).Lines.Add("eeee")
И все ! И никакого имени этого контрола не надо...
Сам делал приваты в чате, и нашел, что это более оптимальное решение.
а чтобы узнать какой Tabsheet активен, PageControl1.ActivePage.Name

Вот сейчас бьюсь над передачей файлов в чате.... Просто передать Файл уже могу, но с докачкой пока проблемы...
И нужно реализовать многопотокувую отправку разным юзерам

← →
Alessio2003 (2003-02-22 01:36) [2]

Я пишу
TextP - это TTabSheet;
TRichEdit(TextP.Components[0]).Lines.Add("eeee");

Выбрасывается ошибка при выполнении команды.

← →
SeNtiMeL © (2003-02-22 02:33) [3]

У тебя должен быть создан RichEdit уже...
И ты должен быть точно уверен, что RichEdit стоит под номером 0, в списке дочерних компонент TabSheet.

← →
Alessio2003 (2003-02-22 13:39) [4]

var TextP: TPageControl; ... procedure TChat.UserText1KeyPress(Sender: TObject; var Key: Char); begin //Если нажали кнопку <Enter> - отправим текст в RichEdit if Ord(Key)=13 then begin if TextP.ActivePage.Name="StatusPage" then //У меня возникает ошибка в этой части кода StatusWind.Lines.Add(UserText1.Text) else TRichEdit(TextP.ActivePage.Components[0]).Lines.Add(UserText1.Text); end; end;

Ситуация такая: у меня на форме находится PageControl, на нём создана в DesignTime одна страничка с именем StatusPage, на ней есть RichEdit.

В RunTime я создаю новую закладку с новым RichEdit. Когда я ввожу текст в Edit UserText1, у меня возникает ошибка класса EAccsessViolation в указанном выше месте.
Что тут может быть не так?

Доступ к RichEdit Найти похожие ветки