Форум: "Начинающим";
Текущий архив: 2006.12.17;
Скачать: [xml.tar.bz2];
Вниз
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 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.12.17;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.066 c
