Текущий архив: 2003.11.27;
Скачать: 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 вся ветка
Текущий архив: 2003.11.27;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.008 c
