Форум: "Основная";
Текущий архив: 2002.07.08;
Скачать: [xml.tar.bz2];
ВнизКак в компоненте TEdit включить замену..... Найти похожие ветки
← →
N A N (2002-06-26 13:29) [0]Как в компоненте TEdit включить замену.....
Ну т.е. кода нажимаешь Insert и символы вставляются, нажимаешь еще Insert и символы заменяются....
← →
Kaban (2002-06-26 13:32) [1]Это Dos-овский подход, в Windows он не используется. Если уж вам так хочется обрабатывайте нажатие клавиши Ins и делайте SelLen=1, а выделение текста вообще запретите
← →
Игорь Шевченко (2002-06-26 13:38) [2]Kaban © (26.06.02 13:32)
Это не досовский подход, и в Windows он используется.
Попробуйте при вводе ответа нажать Insert :-)))
← →
N A N (2002-06-26 13:41) [3]ничо не понял причем здесь дос.
Кода в ворде редактируешь текст, то можно либоб писать поверх написанного текста(замена), либо вставлять текств предложение..
Как это сделать в TEdit. Там нажимаешь Insert и текст также вставляется а не заменяется....
Как?
← →
Фикус (2002-06-26 13:44) [4]ответ уже был, обрабатывать нажатие клавиши Ins
← →
Kaban (2002-06-26 13:46) [5]ну да, правильно. совсем торможу
← →
Игорь Шевченко (2002-06-26 13:52) [6]Фикус © (26.06.02 13:44)
Вопрос по-иному: как узнать, в каком режиме (вставка/замена) находится некий TEdit ?
← →
Фикус (2002-06-26 14:49) [7]
> Игорь Шевченко
навскидку, просто ввести переменную типа boolean
← →
N A N (2002-06-26 14:54) [8]как я понял встроенной возможности включать режим вставки/замены нет. Надо это запрограмировать ручками....
← →
Игорь Шевченко (2002-06-26 15:16) [9]Фикус © (26.06.02 14:49)
Торможу со страшной силой :-)))
← →
N A N (2002-06-26 15:36) [10]2 kaban
> а выделение текста вообще запретите
как?
← →
Kaban (2002-06-26 15:39) [11]честно говоря не знаю.
М.б. обрабатывать нажатие Shifta со стрелками и движение мыши и сбрасывать SelLen в 0. По моему геморой. Лучше откажитесь от этого способа.
← →
N A N (2002-06-26 15:43) [12]а как реализовать-то эту вставку/замену блин!
← →
Kaban (2002-06-26 16:00) [13]На вскидку в OnKeyPress:
var S:String;
begin
S:=Edit1.Text;
with Edit1 do
if SelLength = 0 then // Если текст не выделен
if InsertFlag then // Если Ins включен
if Edit1.SelStart<>Length(Edit1.Text) then
// Если курсор стоит не в конце строки
begin
S[SelStart+1]:=Key;
Text:=S;
end;
end;
Идея ясна?
← →
Ocean (2002-06-26 16:03) [14]Почему бы не использовать какой-нибудь RichEdit высотой в 1 строку, с контролем клавиш типа Enter?
← →
N A N (2002-06-26 16:14) [15]Kaban © (26.06.02 16:00)
Спасибо огромное
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.07.08;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.006 c