VPF::OnEnter в Memo - Форум программистов

helflip

Дата 27.2.2009, 15:14 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 146
Регистрация: 14.5.2006
Где: Moscow

Репутация: нет
Всего: 4

Всем привет!

У меня такая ситуация. Есть memo1 в нем пишется текст, но при нажатии на Enter мемо очищается
у меня вот так сделано

Код


procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
  memo1.clear;
end;

Проблема в том что когда курсор стоит на первой строке и нажимаешь Enter мемо очищается, но курсор ставится на вторую строку (т.е.)!
При последующих нажатиях на Enter курсор так и остается в начале 2-й строки. Почему так происходит и как это исправить?

Заранее благодарю!!

--------------------

Rrader

Дата 27.2.2009, 15:29 (ссылка)

(голосов:2)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

Код


procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = Chr(VK_RETURN) then
  begin
    Memo1.Clear;
    Key := #0;
  end;
end;

--------------------

Let's do this quickly!
Rest in peace, Vit!

helflip

Дата 27.2.2009, 15:32 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 146
Регистрация: 14.5.2006
Где: Moscow

Репутация: нет
Всего: 4

Огромное спасибо!!!! smile

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »