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

Опять Richedit   Найти похожие ветки 

← →
123000 ©   (2002-10-11 19:23) [0]

Как в richedit включить режим Overwrite(чтобы символы не вставлялись, а заменялись)?

---

← →
AL2002 ©   (2002-10-11 19:46) [1]

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if (Key = VK_INSERT) and (Shift = []) then InsertOn := not InsertOn;end;procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);begin if ((Memo1.SelLength = 0) and (not InsertOn)) then Memo1.SelLength := 1;end

---

Страницы: 1 вся ветка

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



Память: 0.44 MB
Время: 0.036 c