Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

сделать Ctrl+Enter в TMemo?! [D6, WinXP]

Alexander_D6_XP © (2002-06-04 18:04:00)
Привет, я вот хочу сделать в Memo очистку оного по нажатию Ctrl+Enter.

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

Игорь Шевченко (2002-06-05 09:40:00) [1]
Отладчиком поглядеть, что происходит, не судьба ?
У меня D5

Alexander_D6_XP (2002-06-04 20:11:00) [2]
Именно, есть оно!

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

Song (2002-06-04 19:42:00) [3]
Странно.. проверьте чтобы TMemo.WantReturns было True

Alexander_D6_XP (2002-06-04 19:37:00) [4]
Блин!я все сделал именно так! Жалко скриншот не вставить....

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

Song (2002-06-04 19:33:00) [5]
Alexander_D6_XP (04.06.02 19:26)
Этого не может быть. Проверьте может не правильно написали.

Alexander_D6_XP (2002-06-04 19:26:00) [6]
У меня 6-ая дельфя (может и не важно), но у меня появляется и с твоим кодом!

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

Игорь Шевченко (2002-06-04 18:30:00) [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 18:23:00) [8]
KeyDown

Игорь Шевченко (2002-06-04 18:20:00) [9]
На каком событии этот код ?

Alexander_D6_XP (2002-06-04 18:17:00) [10]
А не работает!!!

Alexander_D6_XP (2002-06-04 18:13:00) [11]
Спасибо :)

Игорь Шевченко (2002-06-04 18:09:00) [12]
Key := 0;
в конце

MBo (2002-06-04 18:09:00) [13]
if (Key = VK_RETURN) and (ssCTRL in Shift) then begin
Memo1.Clear;
Key:=0;
end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »