Скачать: CL | DM;

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

← →
limk   (2003-11-14 17:28) [0]

здраствуйте мастера...сдно конечно за вопрос..но не могу додуматься скажите плз...как мне узнать на какой строчке у меня курсор в данный момент в мемо(курсор НЕ мышки)

---

← →
Prov ©   (2003-11-14 17:29) [1]

GetCaretPos, если не ошибаюсь

---

← →
MBo ©   (2003-11-14 17:30) [2]

SelStart + EM_*** сообщение (сам найди - какое именно, в WinSDK Help)

---

← →
VAleksey ©   (2003-11-14 17:34) [3]

Если я не ошибаюсь то искать надо EM_CHARFROMPOS.

---

← →
limk   (2003-11-14 17:38) [4]

люди добрые я в делфи зеленый поподробнее плз напишите!

---

← →
limk   (2003-11-14 17:38) [5]

люди добрые я в делфи зеленый поподробнее плз напишите!

---

← →
TUser ©   (2003-11-14 17:41) [6]

> люди добрые я в делфи зеленый поподробнее плз напишите!

var PosForGreen:TPoint;
begin
PosForGreen:=memo1.CaretPos; // по-моему без Get
end;

---

← →
limk   (2003-11-14 17:47) [7]

> TUser
и чего мне потом с Tpoint делать?
мне надо что бы был integer что бы я могу прибовлять к нему 1 и таким образом двигаться вверх вниз верх вниз...;)

---

← →
dataMaster ©   (2003-11-14 17:57) [8]

function GetLine: integer;
var
i: Integer;
begin
i := Form1.Memo1.Perform(EM_LINEFROMCHAR, $FFFF, 0);
Result:=i;
end;

---

← →
Grokhem ©   (2003-11-14 18:05) [9]

SendMessage(Memo1.Handle, EM_LINEFROMCHAR, -1, 0)
нумерация строк с нуля

---

← →
KSergey ©   (2003-11-14 18:06) [10]

[8] dataMaster © (14.11.03 17:57)
[9] Grokhem © (14.11.03 18:05)

Ага, а теперь не забудьте ему рассказать как "что бы был integer что бы я могу прибовлять к нему 1 и таким образом двигаться вверх вниз верх вниз"... блин...

---

← →
limk   (2003-11-14 18:09) [11]

> KSergey
во во...;)

---

← →
limk   (2003-11-14 18:10) [12]

у меня кнопка! нажимая на нее мне надо было бы что текс прокручивался бы вниз!
procedure TForm1.Button1Click(Sender: TObject);
begin
че вот тут писать????
end;

p.s. представляю как вы сечас ржоте...;( ну ничего зато отвлеклись да?...;)

---

← →
dataMaster ©   (2003-11-14 18:11) [13]

>KSergey (14.11.03 18:06) [10]
не забудь ему рассказать

Об этом я как-то не подумал. В следующий раз исправлюсь. ;-)

---

← →
dataMaster ©   (2003-11-14 18:16) [14]

limk (14.11.03 18:10) [12]
procedure TForm1.Button1Click(Sender: TObject);
begin
че вот тут писать????
end;


SendMessage(Memo1.Handle, WM_VSCROLL, SB_LINEDOWN, 0); // Вниз
SendMessage(Memo1.Handle, WM_VSCROLL, SB_LINEUP , 0); // Вверх

---

← →
limk   (2003-11-14 18:19) [15]

> dataMaster
да работает спасибо огромное ...но если тебе не трудно не мог бы обьяснить принцип ???

---

← →
Palladin ©   (2003-11-15 07:51) [16]

Ага, мне тоже, почему земля верится... никак понять не могу... кто ее крутит...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.016 c