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. представляю как вы сечас ржоте...;( ну ничего зато отвлеклись да?...;)

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

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

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
да работает спасибо огромное ...но если тебе не трудно не мог бы обьяснить принцип ???

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

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