VPF::Запрет выделения в TRichEdit или TMemo

sunnmas

Дата 25.2.2010, 16:48 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 58
Регистрация: 17.4.2009

Репутация: нет
Всего: нет

Как сделать так чтобы нельзя было выделять мышью и клавишами текст.

И заобно запретить удалять по клавише del. Событие OnKeyPress не вызывается при нажатии на del!

former

Дата 25.2.2010, 17:14 (ссылка)

(нет голосов)

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 5
Всего: 17

Я делаю так:

Код


procedure TDBMainForm.SEDescriptionMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var r:trect;
    p:tpoint;
begin
  p:=SEDescription.ClientToScreen(point(x,y));
  r:=rect(p.X,p.Y,p.X+1,p.Y+1);
  clipcursor(@r);
end;

procedure TDBMainForm.SEDescriptionMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  clipcursor(nil);
end;

procedure TDBMainForm.SEDescriptionKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (ssshift in Shift)and(key in [37..40]) then key:=0;
end;

procedure TDBMainForm.BSDescriptionMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var r:trect;
    p:tpoint;
begin
  p:=SEDescription.ClientToScreen(point(x,y));
  r:=rect(p.X,p.Y,p.X+1,p.Y+1);
  clipcursor(@r);
end;

procedure TDBMainForm.BSDescriptionMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  clipcursor(nil);
end;

procedure TDBMainForm.BSDescriptionKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (ssshift in Shift)and(key in [37..40]) then key:=0;
end;

--------------------

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »