RunTime

← →
alena.svt (2002-06-26 21:34) [0]

Здравствуйте всем!
Я в Delphi недавно поэтому прошу не ругаться за некоректно поставленный вопрос.
А вопрос вот в чем: Я в RunTime создаю компонент RxRichEdit. Задаю ему все свойства там Align, WordWrap и т.д.
Все вроде прекрасно только не знаю как нему обратиться. Например кнопка WordWrap. Если б не в RunTime я бы в ее событии записала
procedure TForm1.btnWrapClick(Sender: TObject); begin RxRichEdit1.WordWrap:=True; end; А как мне обратиться и что записать в событие кнопки если у меня нет компонента на форме(RxRichEdit). И еще заодно вопросик procedure TForm1.btnPasteFunction(Sender: TObject); begin RxRichEdit1.SetSelTextBuf(pchar("ABC[......]")); end; Все прекрасно работает, только мне надо поместить курсор например ABC[..curcor].Как это сделать незнаю. Может есть какая нибудь стандартная константа типа "%s". Можно конечно имитировать нажатие клавиши Left, но у меня пользователь должен выбирать. Во а чего я объясняю так тяжело- "Code Insight в Дельфи", вот наподобие только по клику на кнопке. Извините если что не так объяснила. Заранее благодарна.

← →
alena.svt (2002-06-26 23:06) [1]

Ну ребят знаете же.

← →
Юрий Зотов © (2002-06-26 23:18) [2]

> Я в RunTime создаю компонент RxRichEdit.
> Задаю ему все свойства там Align, WordWrap и т.д.

То есть, в Вашей программе есть строки типа этих:
var
A: TRxRichEdit; ...
...
A := TRxRichEdit.Create(...);
(конечно, A взято лишь для примера, Ваша переменная может называться как угодно).

> только не знаю как нему обратиться.
Вот через переменную A и обращайтесь:
A.WordWrap:=True;
(точнее, конечно, не через A, а через Вашу переменную).

А второй вопрос я все же так и не понял.

← →
Viewer (2002-06-26 23:20) [3]

RxRichEdit1.btnWrap.OnClick := MyClick;
..
procedure TForm1.MyClick(Sender: TObject);
begin
ShowMessage("Wrap or not Wrap ?");
end;

← →
alena.svt (2002-06-26 23:23) [4]

Спасибо! Но A у меня небыло.
А второй вопрос - вставить строку от положения курсора и перевести положение курсора допустим на пять символов влево.
С уважением.

← →
alena.svt (2002-06-26 23:25) [5]

Viewer спасибо но у меня нет на форме RxRichEdit.
С уважением

← →
Viewer (2002-06-26 23:26) [6]

A := TRxRichEdit.Create(...);
Но вот это-то есть ?
Иначе - где экземпляр рича ?

← →
alena.svt (2002-06-26 23:32) [7]

Там пониже tsarevep задавал вопрос. Ответ Gonza. Вот у меня почти один в один. И ситуация такая же.

← →
sergio2204 (2002-06-26 23:38) [8]

Не знаю как в TRx.., а в TRichEdit есть два свойства:
SelLength - число выделенных симолов;
SelStart - номер позиции первого выделенного символа.

Попробуй сделать так:
RR.SelStart := RR.SelStart + 5

← →
alena.svt (2002-06-26 23:48) [9]

Да нет ее можно програмно передвинуть. Вот еще раз попробую объяснить. У вас в дельфи есть всплывающий список по нажатию клавиш Ctrl+J он вставляет что вам нужно из выбора. Например
array[0..] of = ();
и помещает курсор в квадратные скобки. Но вы можете поменять в настройках редактора вставки этих функций. А символ | будет положением курсора при вставке.
Вот и у меня пользователь должен выбирать чего вставлять и куда.
С уважением.

← →
alena.svt (2002-06-27 00:43) [10]

??????????

Воспользуйся советом Ю.Зотова- заведи переменную (глобальную) -
так будет удобнее
var
RXRich1:TRXRichedit;

где-то в программе
RXRich1:=TRXRichedit.Create(Self);
RXRich1.Parent:=Self;
...

RXRich1.SelLength := 0;//установка длины выделения 0
RXRich1.SelText := s; // вставка строки в позицию курсора

и, как сказал sergio2204
RXRich1.SelStart := RXRich1.SelStart - 5;
это передвинет курсор на 5 символов влево, надо только не забывать о переводах строк (2 невидимых символа)
(или, если требуется, на Length(s) )

RunTime Найти похожие ветки