заблокировать удаление символов в в Edit - Общие вопросы Delphi

record222 · 09.04.2010, 00:24

Объясните как заблокировать удаление первых 7 символов в TEdit.

SERG1980 · 09.04.2010, 08:17

Код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=chr(VK_DELETE) then key:=#0;//запрет на удаление всего слова
 if key=chr(VK_BACK) then
  if edit1.SelStart<=7 then key:=#0;
end;

record222 · 09.04.2010, 21:06

Спасибо работает

09.04.2010, 00:24	#1
record222 Форумчанин Регистрация: 23.09.2009 Сообщений: 127	заблокировать удаление символов в в Edit Объясните как заблокировать удаление первых 7 символов в TEdit.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
установить минимальное кол-во символов в edit	ser2031	Компоненты Delphi	2	06.01.2010 23:28
Ввод символов в Edit в Delphi	TaYgA	Помощь студентам	3	21.11.2009 17:15
координаты символов в Edit	user_jasser	Win Api	6	02.02.2009 21:03
Ограничение по вводу символов в Edit-e	Alexij	Общие вопросы Delphi	1	26.06.2008 16:27
Удаление символов	MURAD	Общие вопросы C/C++	3	19.08.2007 01:25

09.04.2010, 21:06	#3
record222 Форумчанин Регистрация: 23.09.2009 Сообщений: 127	Спасибо работает