Автоматический переход на новую строку в Мемо

[Utkin]

Компонент.Metods.Свойства_и_методы_ ЛистБокса

P.Metods.Items.Add('соник');
p.Metods.Items.Add('жаба');

В случае если компонент обозван как р .

[Stilet]

Не знаю что ты там такое невертел, но у меня на
Text2:=FOnInsMetod(Self, Text2);
падает на AV. если не описать событие onInsMethod - это не есть гут.
Второе - кажись твоя отрисовка хромает. Неверно отрисовывешь текст. Он смещен на пару пикселей.

[Utkin]

Это все мелочи жизни, мне вот эту бяку победить .

[Stilet]

Какую бяку???
Никакой пустой строки я в выпадающем списке не увидел...

[Utkin]

Да нет, он разбивает строку на три - до места вставки, потому строка, которая вставлена из списка и следующая строка - после курсора. А мне надо в ту же строчку. Это видно, когда список появляется. С ним курсор в TMemo переходит на новую строку, а должен стоять там же.

[Stilet]

Видимо твоя проблема кроится в том что ты не учитываешь тот факт что когда ты нажимаешь энтер (по которому из списка вставлять нужно) то Мемо сам по себе этот Энтер перехватывает и вставляет его тоже.
Вот такой прием:

function TForm1.HMemo1InsMetod(Sender: TObject; Stroka: string): string;
begin
 HMemo1.SelStart:=length(HMemo1.Text)-2;
 HMemo1.SelLength:=0;
 HMemo1.SelText:=Stroka;
end;

теоретически спасет отца русской демократии. но согласись - просто так это описывать каждому не захочется )
Так что ты либо добавь вставку выбранного по нажатию пробела, либо как-то контролируй нажатие Энтера при открытом списке.
Ферштеен, коллега?

[Utkin]

Сообщение от Stilet

Ферштеен, коллега?

Не, новая строка появляется в момент когда ЛистБокс показывается, даже если я ничего не выберу из списка (например нажав ESC). А это очень плохо. ЛистБокс исчезнет, а разрыв в строке останется
И потом я программно вставляю String и в Брекапоинтах там строка без #13+#10 на конце. Нет здесь какая-то загогулина похитрее...

[Stilet]

Знаешь, дружище, ты там что-то такого непомерного нахомутал...
Бросай это дело, и начинай сначала... По-моему твоя стратегия тупиковая.

[Utkin]

Я практически закончил! Осталось только подобрать все неаккуратности.

[raxp]

для адекватного положения выпадающего списка есть предложение кое-что видоизменить... выделяю красным новое...

private
hh,ww:   Integer;
...
procedure THMemo.ShowMetods();
var
      x, y: Integer; t: tpoint;
begin
 pX:= CaretPos.x;
 pY:= CaretPos.y;

 x:= ww*px + 5; //px*(Font.Size+2)+5;
 y:= hh*py + 3; //py*(Font.Size+2)+5;
...


procedure THMemo.WMPaint(var Message: TWMPaint);
...
 // размер текущего шрифта-
 Canvas.Font.Size := Font.Size;
 ww:= canvas.TextWidth('1');
 hh:= Canvas.TextHeight('1');
...

upd
-------
ммм... устранило смещение по -y- в любом случае, а вот по -x- при длинной строке все равно смещение увеличивается... не пойдеть...от, елки