сделать Ctrl+Enter в TMemo?!

← →
Alexander_D6_XP (2002-06-04 18:04) [0]

Привет, я вот хочу сделать в Memo очистку оного по нажатию Ctrl+Enter.

if (Key = VK_RETURN) then
begin
if (ssCTRL in Shift) then
Memo2.Clear;
end;
Но! после этой операции добавляется Enter!! Что сделать?!

← →
Игорь Шевченко © (2002-06-04 18:09) [1]

Key := 0;
в конце

← →
MBo © (2002-06-04 18:09) [2]

if (Key = VK_RETURN) and (ssCTRL in Shift) then begin
Memo1.Clear;
Key:=0;
end;

← →
Alexander_D6_XP (2002-06-04 18:13) [3]

Спасибо :)

← →
Alexander_D6_XP (2002-06-04 18:17) [4]

А не работает!!!

← →
Игорь Шевченко © (2002-06-04 18:20) [5]

На каком событии этот код ?

← →
Alexander_D6_XP (2002-06-04 18:23) [6]

KeyDown

← →
Игорь Шевченко © (2002-06-04 18:30) [7]

procedure TfMain.Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = VK_RETURN) AND (ssCtrl in Shift) then begin
Memo1.Lines.Clear();
Key := 0;
end;
end;

Работает :-)

← →
Alexander_D6_XP (2002-06-04 19:26) [8]

У меня 6-ая дельфя (может и не важно), но у меня появляется и с твоим кодом!

Он чистится, но ентер всё равно есть :(

← →
Song © (2002-06-04 19:33) [9]

Alexander_D6_XP (04.06.02 19:26)
Этого не может быть. Проверьте может не правильно написали.

← →
Alexander_D6_XP (2002-06-04 19:37) [10]

Блин! я все сделал именно так! Жалко скриншот не вставить....

может какие свойства предварительно у Мемо поменять надо?

Странно.. проверьте чтобы TMemo.WantReturns было True

← →
Alexander_D6_XP (2002-06-04 20:11) [12]

Именно, есть оно!

я уже 3 раза подряд создал новое приложение, шлёпнул на него Мемо и вставил код! Ничего не менял в настройках оного :(

Отладчиком поглядеть, что происходит, не судьба ?
У меня D5

сделать Ctrl+Enter в TMemo?! Найти похожие ветки