Запрет ввода символа для Memo

← →
DelphiLexx © (2006-03-15 16:23) [0]

В memo стоит следующая обработка на OnKeyDown:

[code=delphi]

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin

if (Shift = [ssCtrl]) and (key = VK_SPACE) then begin
Key:=0;
SetCaretPos(Memo1.CaretPos.X-1, Memo1.CaretPos.Y);
end;
end;
[/code]
Т.е. если нажимается клавиша Ctrl+пробел, то курсор memo должен оставаться на месте. Но мой код что-то не работает (хотя вроде бы всё правильно). Подскажите в чём проблема.

← →
clickmaker © (2006-03-15 16:33) [1]

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if ((GetKeyState(VK_CONTROL) shr 8) > 0) and (key = #32) then begin
Key := #0;
end;
end;

← →
Плохиш © (2006-03-15 16:33) [2]

> SetCaretPos(Memo1.CaretPos.X-1, Memo1.CaretPos.Y);

Есть подозрение, что эта строка не нужна.

← →
DelphiLexx © (2006-03-15 16:56) [3]

> procedure TForm1.Memo1KeyPress(Sender: TObject; var Key:
> Char);
> begin
> if ((GetKeyState(VK_CONTROL) shr 8) > 0) and (key = #32)
> then begin
> Key := #0;
> end;
> end

Да я заметил в KeyPress"е обнуляется клавиша при Key := #0, а вот KeyDown
нет почему не знаешь?

← →
Leonid Troyanovsky © (2006-03-15 18:45) [4]

> DelphiLexx © (15.03.06 16:56) [3]

> нет почему не знаешь?

Да почему знаешь.

Другой вопрос в том, что нужней - шашечки или ехать.
Ответ же прост: потому как TranslateMessage, RTFM.

--
Regards, LVT.

← →
Leonid Troyanovsky © (2006-03-15 19:28) [5]

> Leonid Troyanovsky © (15.03.06 18:45) [4]

Млин, прям рекордсмен кросспостинга, не угнаться.

http://rsdn.ru/?Forum/?mid=1784691

--
Regards, LVT.

← →
TStas © (2006-03-16 10:59) [6]

TApplicationEvent запретит что хочешь по вкусу

← →
Yanis © (2006-03-16 11:28) [7]

> DelphiLexx © (15.03.06 16:23)

Зачем писать программу самому, если есть интернет. Да?

> > Leonid Troyanovsky © (15.03.06 18:45) [4]
>
>
> Млин, прям рекордсмен кросспостинга, не угнаться.
>
> http://rsdn.ru/?Forum/?mid=1784691
>
> --
> Regards, LVT.

Здравствуйте, Leonid Troyanovsky, Вы писали:

Хочу сказать лишь одно, что не слово красить человека, а его отношения к другим людям. Поэтому за всё что вы(форумчане) делаете для меня глубоко признателен и без всяких там спасибо. А тему разместил параллельно т.к. ответ мне нужен был очень быстро.

> DelphiLexx © (16.03.06 15:41) [8]

> Здравствуйте, Leonid Troyanovsky, Вы писали:

> Хочу сказать лишь одно, что не слово красить человека, а
> его отношения к другим людям. Поэтому за всё что вы(форумчане)
> делаете для меня глубоко признателен и без всяких там спасибо.
> А тему разместил параллельно т.к. ответ мне нужен был очень
> быстро.

Интересно сравнить с http://rsdn.ru/?Forum/?mid=1784691
Шаблон похож, да и алгоритму не изменяем - кросспостинг.

А может уважаемый есть бот? А мы спрашиваем как с человека.
Для программы, надо отметить, уровень сенсорного восприятия и
интеллектуальный уровень очень даже вполне - мне такую
сделать слабо.

--
Regards, LVT.

> Leonid Troyanovsky © (16.03.06 16:05) [9]

> Интересно сравнить с http://rsdn.ru/?Forum/?mid=1784691

Хотел сказать http://rsdn.ru/Forum/Message.aspx?mid=1786244&only=1
Sorry.

--
Regards, LVT.

Запрет ввода символа для Memo Найти похожие ветки