[link-oln]

И снова здравствуйте, друзья! У меня вот такой вопрос:
Как сделать так чтобы в поле Edit курсор был всегда в конце строки и его невозможно было бы переместить ни клавишами-стрелками, ни мышью, чтобы пользователь не мог никак изменить напечатаный текст кроме как стереть его часть BackSpase'ом?
Если в событии OnKeyPress ввести что-то типа:

Код:

if not (key in ['?', '?' ...] then key := #0;

то на стрелки это не распространяется... Ну а нащёт запрета на перемещение мышью у меня ваще никаких догадок...

[Black Raider]

Код:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
edit1.SelStart:=length(edit1.Text)+1;
end;

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
edit1.SelStart:=length(edit1.Text)+1;
end;

[flexterful]

А как на щёт в событии OnChange установить SelStart в Length(Edit.Text)?
Тогда может и OnKeyPress ненадо?

[Black Raider]

Код:

	
	

			
				как на щёт в событии OnChange установить SelStart в Length(Edit.Text)?
			
		

OnChange не отработает на стрелках.

[flexterful]

Сообщение от Black Raider

Код:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
edit1.SelStart:=length(edit1.Text)+1;
end;

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
edit1.SelStart:=length(edit1.Text)+1;
end;

Для мыши тогда добавить тот же edit1.SelStart:=length(edit1.Text)+1;
в OnMouseDown() и OnMouseUp(), а OnMouseMove() избавит от "селекта"

[link-oln]

Сообщение от Black Raider

OnChange не отработает на стрелках.

Вот именно! Я уже это пробовал...

[link-oln]

А вот вариант на OnKeyDown-Up работает!

P.S. С мышью я уже сам разобрался:

Код:

procedure TForm1.EditClick(Sender: TObject);
begin
if Edit.SelStart <> length(Edit.Text) then Edit.SelStart := length(Edit.Text);
end;

И понадобилось всего-то событие OnClick...

[link-oln]

Спасибо за помощь! И отдельно для Black Raider