| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

CaretPos [D7]

sofs ©   (2005-06-01 06:58:00) 

вот пишу if s=8 then richedit1.CaretPos.y+1;Выдаётся ошибка.как правильно писать?

---

ANB   (2005-06-01 08:17:00) [1]

> Kerk ©   (01.06.05 08:13) [7]
- дамс. Серьезненько. Хелп уже не кошерно.

---

Kerk   (2005-06-01 08:13:00) [2]

ANB ©   (01.06.05 7:48) [6]
А чего там было ?
........
Kerk ©   (31.05.05 21:58) [1]
TRichEdit.CaretPos или TRichEdit.SetCaretPos()
----------------------------
sofs ©   (31.05.05 22:01) [2]
И с какими параметрами его применять
Чё писать в скобках?
.......

---

ANB   (2005-06-01 07:48:00) [3]

> Kerk ©   (01.06.05 07:36) [4]
- ты был прав. Нужна книжка.
Кстати, твоя ссылка не работает. А чего там было ?

---

sofs   (2005-06-01 07:37:00) [4]

%^$%# че-то я совсем задолбался.Короче:for i:=1 to 50 do begin
simvol:=Myarray[i];
RichEdit1.Text:=RichEdit1.Text+'$'+inttohex(simvol,2)+' ';
if ((i mod 4=0)and (i<>0)) then  RichEdit1.Text:=RichEdit1.Text+'    ';
if ((i mod 8=0)and (i<>0)) then begin NCaretPos := RichEdit1.CaretPos;
NCaretPos.Y := NCaretPos.Y + 1;
RichEdit1.CaretPos := NCaretPos;
end;
Укажите мне на ошибку которая не даёт возможности перейти на след строку?

---

Kerk   (2005-06-01 07:36:00) [5]

ANB ©   (01.06.05 7:27) [3]
- не придирайся.

А кто придирается? Я же сказал - добрый совет :)

> Я сам месяца 3 назад на такую штуку нарвался. И опять
> забыл.

Хммм.. :))))

http://www.delphimaster.ru/cgi-bin/forum.pl?id=1117562166&n=0

---

ANB   (2005-06-01 07:27:00) [6]

> Kerk ©   (01.06.05 07:10) [2]
- не придирайся. Я сам месяца 3 назад на такую штуку нарвался. И опять забыл. Так как на SynEdit перешел. Удобная штука.

---

Kerk   (2005-06-01 07:10:00) [7]

sofs ©   (01.06.05 6:58)

Добрый совет. Купи книжку по Делфи и прочитай. :)

---

ANB   (2005-06-01 07:04:00) [8]

var NewCaretPos : TPoint;
begin
NewCaretPos := CaretPos;
NewCaretPos.Y := NewCaretPos.Y + 1;
RichEdit1.CaretPos := NewCaretPos;
end;

---

Наверх