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

cсобытие enter в memo   Найти похожие ветки 

← →
Змей ©   (2006-11-27 19:42) [0]

после набранного текста  в memo хочу после каждой строки чтобы вставлялось "</br>"
при нажатии на энтер в событии OnKeyDown пишу следующееprocedure TForm1.MemoKeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
     if key=vk_return then

   
    Memo.Lines.Add("</br>");

end;
все ничего но </br> переносится еще на одну строку

пример:
1
</br>
2
</br>

а должно быть
1</br>
2</br>
3</br> etc.

чето я туплю совсем

---

← →
umbra ©   (2006-11-27 19:44) [1]

Memo.Lines[Memo.Lines.ItemIndex] := Memo.Lines[Memo.Lines.ItemIndex] +"</br>";

---

← →
Змей ©   (2006-11-27 19:52) [2]

ой пасиба :))))))))

---

← →
Змей ©   (2006-11-27 20:28) [3]

Memo.Lines[Memo.Lines.ItemIndex] := Memo.Lines[Memo.Lines.ItemIndex] +"</br>";

если  скопировать выше написанное то вот что получается
Undeclared identifier: "ItemIndex"

---

← →
umbra ©   (2006-11-27 20:39) [4]

да, пора домой.

TForm1.MemoKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
    if key=vk_return then
      if memo.SelLength <> 0 then
        memo.SelStart := Memo.Selstart;
        Memo.SelText := "</br>"
 
end;

---

← →
Алхимик ©   (2006-11-27 20:49) [5]

> [4] umbra ©   (27.11.06 20:39)

Фигня получается...

> Змей ©   (27.11.06 19:42)

procedure TfrmMain.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  LineNumber: integer;
begin
  if key = vk_return then begin
     LineNumber := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, word(-1), 0);
     Memo1.Lines[LineNumber] := Memo1.Lines[LineNumber] + "</br>";
  end;
end;
Но на мой взгляд лучше теги вставлять после ввода всего текста...

---

← →
Змей ©   (2006-11-27 21:15) [6]

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

---

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

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



Память: 0.46 MB
Время: 0.027 c