| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Переход на строку [D6]
Nemas © (2003-02-07 17:31:00)Как в TMemo можно перейти на любую строку?
dim- (2003-02-07 23:45:00) [1]Попробуй так:
Procedure setline(WhichEdit:TRichedit;Linepos,charpos:integer);
Begin
with WhichEdit do
begin
selstart:=perform(EM_LineIndex,Linepos,0)+charpos;
perform(EM_ScrollCaret,0,0);
end;
end;
procedure TTxtEdit.SpeedButton1Click(Sender: TObject);
var s:string;
begin
s:=inttostr(RxRichEdit1.CaretPos.y);
if inputQuery("Input Box", "Prompt", s) then Begin
RxRichEdit1. SetFocus;
setline(RxRichEdit1,strtoint(s),0);
end
end;
Ich Hasse (2003-02-07 23:37:00) [2]что ты подразумеваешь под словом перейти?
Song (2003-02-07 20:34:00) [3]TMemo.SelStart
| |
