| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Опять Richedit [D6, Win95/98]
123000 © (2002-10-11 19:23:00)Как в richedit включить режим Overwrite(чтобы символы не вставлялись, а заменялись)?
AL2002 (2002-10-11 19:46:00) [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
| |
