Как в компоненте 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

> а выделение текста вообще запретите

как?

честно говоря не знаю.
М.б. обрабатывать нажатие Shifta со стрелками и движение мыши и сбрасывать SelLen в 0. По моему геморой. Лучше откажитесь от этого способа.

← →
N A N (2002-06-26 15:43) [12]

а как реализовать-то эту вставку/замену блин!

На вскидку в 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;
Идея ясна?

Почему бы не использовать какой-нибудь RichEdit высотой в 1 строку, с контролем клавиш типа Enter?

← →
N A N (2002-06-26 16:14) [15]

Как в компоненте TEdit включить замену..... Найти похожие ветки