Скачать: CL | DM;

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.008 c