Edit - выделение

← →
Earth (2005-06-13 19:46) [0]

Как запретить выделение текста в Edit?

← →
Anatoly Podgoretsky © (2005-06-13 19:50) [1]

Оно мешает, мне нет и даже помогает подумать

← →
Earth (2005-06-13 20:07) [2]

У меня программа, для защиты компа, и нужен код для запрета выделение!

← →
Ученик (2005-06-13 20:10) [3]

>Earth (13.06.05 20:07) [2]
Этот текст не надо будет переслать Вам, например, по электронной почте ?

← →
-=XP=- © (2005-06-13 20:27) [4]

У меня программа, для защиты компа, и нужен код для запрета выделение!

Защиты от пользователя? :)))

Используйте TLabel.

← →
NightStranger © (2005-06-13 22:21) [5]

Memo c ReadOnly=true;
Edit c Enabled=false;
Да и действительно... Лейбл
;)

← →
Просто Джо © (2005-06-13 22:22) [6]

Раз уж тут варианты сыплются как из ведра, кину и я свой: Canvas.TextOut в TImage :^)

← →
Earth (2005-06-14 11:30) [7]

Ситуация такая: Пользователь вводит пароль, который регистрируется в окне статистики, а если пользователь выделяет пароль а затем печатает новый, то в окне статистики ничего о выделении не отображается, пояэтому я считаю, что выделение нужно запретить! А вот как это сделать, не знаю...
Если кто знает помогите

← →
-=XP=- © (2005-06-14 11:52) [8]

Вы это о чем?

← →
ЮЮ © (2005-06-14 11:57) [9]

>Пользователь вводит пароль, который регистрируется в окне статистики

После каждого нажатия клавиши?
Тогда уж регистрирацию в окне статистики делай в обработчике OnChange, т.е. при каждом изменении содержимого Edit-a :)

← →
Earth (2005-06-14 16:09) [10]

OnChange - нельзя т.к. записывается имя нажатого симфола!
Кто ни будь знает как программно решить мою задачу?

← →
-=XP=- © (2005-06-14 16:13) [11]

OnChange - нельзя т.к. записывается имя нажатого симфола!

Как насчет Ctrl+V, Shift+Ins?

← →
Earth (2005-06-14 20:03) [12]

Это всё не то, да и не по теме!

Вот же неугомонный изобретатель велосипеда!

По таймеру, или в оконной процедуре (тут придется повозиться):

if (<Edit.>SelLength > 0) then <Edit.>SelLength := 0;

← →
Earth (2005-06-14 22:13) [14]

Хорошо, но я это обошёл, если выделять чень быстро, то таймер не помогает!

unit uUnselEdit; interface uses Windows, Messages, StdCtrls, Classes, Controls; type TNonSelEdit = class(TEdit) private OldWndProc: TWndMethod; procedure AddWndProc(var Message: TMessage); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; end; procedure Register; implementation procedure Register; begin RegisterComponents("Standard", [TNonSelEdit]); end; { TNonSelEdit } procedure TNonSelEdit.AddWndProc(var Message: TMessage); var SS, SE: integer; begin if (Message.Msg <> EM_SETSEL) and (Message.Msg <> EM_GETSEL) and (SelLength > 0) then SelLength := 0; OldWndProc(Message); end; constructor TNonSelEdit.Create(AOwner: TComponent); begin inherited Create(AOwner); OldWndProc := WindowProc; WindowProc := AddWndProc; end; destructor TNonSelEdit.Destroy; begin WindowProc := OldWndProc; //Х.З. inherited; end; end.

P.S. Когда Вас будут бить пользователи - не кричите "Помогите!". А то прибегу - и помогу. Пользователям.

А почему просто не перекрыть WndProc?

Как один из вариантов.
Причем, первый из вариантов.

P.S. С рабочего места, да в такое время...

Edit - выделение Найти похожие ветки