Форум: "Основная";
Текущий архив: 2002.07.08;
Скачать: [xml.tar.bz2];
Вниз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]??????????
← →
MBo (2002-06-27 07:03) [11]Воспользуйся советом Ю.Зотова- заведи переменную (глобальную) -
так будет удобнее
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) )
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.07.08;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.006 c