Текущий архив: 2002.11.11;
Скачать: CL | DM;
Вниз
Каретка возвращается! Найти похожие ветки
← →
liho26 (2002-10-31 10:48) [0]Здравствуйте. Нужна ваша помощь. Вкратце опишу вопрос, который не могу решить. В RichEdit я обрабатываю одновременное нажатие клавиш shift and VK_RETURN программный код приведен ниже:
procedure TForm1.EditorKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssShift in shift) and (key = VK_RETURN) then
begin
.....
{некоторый код здесь}
end;
Вопрос заключается вот в чем. Как после нажатия VK_RETURN удержать каретку на этой же строке?
← →
Vint (2002-10-31 11:43) [1]procedure TForm1.EditorKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
Key := #0;
end;
← →
liho26 (2002-10-31 11:57) [2]Не, не подходит....(( Тогда сам ENTER перестает работать. А надо, чтобы без нажатого шифта ENTER работал, и с клавишей шифт - оставался на строке
← →
Smithson (2002-10-31 11:58) [3]
{ Некоторый код здесь }
Key := #0;
end;
← →
liho26 (2002-10-31 12:09) [4]Несовместимые типы Word и Char...
Key:=#0 - это тип char
VK_ENTER - это тип word
Можно было бы написать код, в обработчике oKeyPress, но эта процедура не отлавливает нажатый шифт
← →
Smithson (2002-10-31 12:10) [5]Ну блин!
Key := 0; // !!!!
← →
liho26 (2002-10-31 12:21) [6]Smithson! Твой код не работает!!!
Впринципе я уже нашел выход. Смотрите ниже приведенный код, мож кому и пригодится.
1. Объявляем глобальную переменную класса:
private
Pressed: Boolean;
Далее в обработчике onKeyDown пишем код
procedure TForm1.EditorKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
if (ssShift in shift) and (key = VK_RETURN) then
begin
Editor.SelAttributes.Color:=clpurple;
Editor.SelText:="Привет мир!";
Pressed:=true;
end;
Теперь в обработчике onKeyPress отлавливаем Pressed
procedure TForm1.EditorKeyPress(Sender: TObject; var Key: Char);
begin
if Pressed then
begin
Key := #0;
Pressed:=false;
end;
end;
Собственно говоря, все.
Пользуйтесь на здоровье! ))
Liho
Страницы: 1 вся ветка
Текущий архив: 2002.11.11;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.007 c
